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ABSTRACT 

noactes development is primarily oriented toward the utilization of 

; ~ sources of high power ratings in central station application. 
iucré is a rolative void in the development of reactors of intermediate power 
ror shipboard application. This study presents the results of an engineering 
evaluation of a new concept for reactor cooling, which yields superheated 
steam at thermodynamic conditions and flow rates appropriate to generating 
25,000 SHP. 

The reactor core is arranged as a shell-and-tube heat exchanger, in which 
tne tube wall separating the two counterflowing coolant streams contains the 
nuclear fuel. The first pass coolant, comprised of the returning feedwater 
and recirculating saturated water, flows upwards through the core, boiling 
in an annular channel and exhausting into a common plenum at the top of the 
core. At the design condition for full load, the ten percent saturated steam 
produced on first pass heating passes through steam separators, located above 
the plenum, and then enters circular flow tubes, defined by the inner radius 
of the annular fuel tubes, to flow back down through the core for the secona 
pass and superheating. The moderator region of the core is in the space be- 
tween first pass flow channels. 

The steam cycle used has been based on a direct cycle plant. The desir 
power for the reactor at full load is 57.4 MWi. Emtering feedwater at 404 °F 
mixes with saturated water at 530 °F to make up the first pass flow. Second 
pass exit conditions were set at 177. 500 1b/hr at a temperature of 955 OF and 
a pressure of 865 psia. ‘The cycle efficiency was determined to be 32. 6%. 

The nuclear fuel is 50% enriched UO» and the cladding regions are made 
of Inconel-X. Two moderators were studied - Ho0 (the returning feedwater) 
and BeOQ. The H90 moderator was separated from the first pass coolant in or- 
cer to reduce the coupling between the axial power distribution in the fuel 
tubes and the steam voids generated during first pass boiling. Constraints 
on the design were taken to be a maximum fuel temperature of 4500 °F and a 
maximum cladding temperature of 1350 °F. The latter was found to be con- 
tmolling. 

The advantage of this design is that the maximum second pass exit tom- 
perature occurs at the bottom of the core where the relatively cold first pass 
coolant enters the core. Based on heat transfer considerations, a certain 
Traction of the heat produced in the annular fuel tube will flow inwards to 
the second pass flow, the remainder flowing outwards to the first pass flow. 
Because of the temperature differential between the two counterflowing cooiant 
streams, a neat flow also exists across the fuel tube from the second to tiiz 
first pass coolant. This secondary heat flow plus the low first pass coolant 
temperature reduce the second pass cladding temperature at a given second 
pass steam temperature. More heat is transferred to the first pass coolant 
than the second pass coolant. The intermediate mixing plenum at the top o- 
the core averages out the effects of radial power peaking across the core on 
the first pass coolant flow. Thus, the thermodynamic state of the second pass 
coolant for all channels is identical as it enters the core for the second 
pass and superngating. 
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ABSTRACT (Continued ) 


The neutron spectrum for both the H90 and BeO moderated cores was found 
to be above thermal. The cores are undermoderated and there is an axial 
skewing of the power distribution toward the bottom of the core. Because of 
this, control rods must enter the core from the bottom if full power is to 
be achieved without exceeding the metallurgical constraints. The power level 
in the reactor can be partially controlled by varying the flow rate of feed- 
water or recirculating water through the core. 

The analysis of this core configuration becomes quite involved, it being 
necessary to solve the couvled effects of flux and power distributions, there 
modynamic state of the coolant and nydraulic flow patterns across the core. 
To achieve this end, a mathematical model was developed and then programmed, 
using numerical analysis techniques. In order to achieve this result, the 
steady state nuclear calculations have used a modified one-dimensional, two- 
group model which "marches" from the consideration of small segments of an 
individual fuel cell to the whole reactor, generating correction factors to 
account for the two-dimensional nature of the idealized problem. The power 
distribution determined is used to calculate the thermodynamic state parame 
eters of the coolant and the flow rates and pressure drops involved. This 
information is fed back into the nuclear calculations and the solution be- 
tween successive iterations is compared until specified convergence limits 
are achieved. 


Thesis Supervisor: H. Fenech 
Title: Associate Professor of Nuclear Engineering 
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Chapter 4 
INTRODUCTION 
1.1 Background 

Reactor development throughout the world is primarily oriented toward 
the application of nuclear power to central station electrical generation 
plants. Economic considerations normally dictate that the power ratings of 
such plants be large to be feasible. Consequently, there is what may be 
termed a "relative void" in the development of small reactors for application 
to propulsion systems or as portable power plants. 

Over the complete spectrum of reactor development, many different types 
have been studied or built. In general, the cycles involved are of two dif~- 
ferent types - indirect or direct. The plant which utilizes the indirect 
cycle can be schematically divided into two distinct parts on the basis of 
flow loops, one loop for the reactor coolant, the other for the working fluid 
flowing through’ the turbomachinery, with coupling between the two loops pro- 
vided by a heat exchanger. Another means of classifying a particular reactor 
is on the basis of the type or thermodynamic state of the reactor coolant and 
the moderator used. For instance, the common reactor types are pressurized 
water, boiling water, organic moderated and cooled, liquid metal cooled and 
gas cooled. From a purely nuclear point of view, the reactor can be described 
in terms of the characteristic neutron spectrum, i.e., thermal, intermediate 
or fast. In all of the types used today, heat is removed by single pass 
coolant flow along the fuel element. 

Design constraints limit the power that may be removed from a reactor. 
These constraints are normally stated in terms of a maximum fuel temperature, 
a enum cladding temperature or a maximum heat flux (applicable to a water 
cooled reactor). One of these is found to be controlling and the design is 
limited by this particular constraint. 





Power reactors using steam cycles have been generally limited to small 
or modest superheat conditions at the ae. The pressurized water reac- 
tors, in general, produce secondary steam at temperatures below 500 °F and 
pressures ranging up to 675 psig. Boiling water reactors, depending upon 
whether the cycle is direct or indirect, have yielded turbine steam up to 
550 °F.. The attainment of high superheat has been gained with the BONUS 
(Boiling Nuclear Superheat) reactor, which is direct cycle and produces steam 
at 875 psig, 900 °F, The BONUS reactor design incorporates an integral nuclear 
superheater region surrounded by a boiling water region. The continuing drive 
for higher steam conditions results from the fact that as the temperature in- 
creases the maximum achievable cycle efficiency increases. 

1.2 CFR Power Source and Plant Concept 

The concept which forms the basis of this study utilizes a water cooled 
nuclear reactor as the power source. ‘The reactor produces superheated steam 
which goes directly to the turbine. The plant is thus described as being 
direct cycle. The primary investigation of the study has been centered upon 
the design facets of the reactor. The concept was originally motivated in 
an attempt to develop a reactor design which would be suitable for a marine 
installation. As such, the design variables considered throughout the study 
are pertinent to a power plant of about 25,000 SHP. At reasonable cycle 
efficiencies, this places the thermal power of the core in the vicinity of 
60 MWi. Where specific values are .mentioned, they will be appropriate only 
to reactors in this region of power. The concept for the reactor configura-= 
tion is not limited to only these powers or for the specific application to 
a marine plant; investigation of design variables peculiar to higher power 
ratings can be easily undertaken. Likewise, the cycle investigated could be 


either direct or indirect. 


The nuclear reactor is arranged internally as a counterflow shell and 





sube heat exchanger. From the internal description tne reactor will be subs-- 
quently referred to as the CFR (Counter Flow Reactor). The annular tube 
separating the two counterflowing coolant streams contains the nuclear fuel. 
Horizontal and vertical cross sections of this arrangement are shown in 

Figure 1.1. 

Subcooled first pass coolant enters the core from an inlet plenum imme- 
diately below the core and flows upward in the region exterior to the fuel 
material. As indicated, the first pass flow path is bounded on the exterior 
by a moderator region. During its upward passage through the core, it begins 
to boil and a two-phase saturated mixture exits into the upper mixing plenw, 
which is common to all first pass coolant flow. 

Dry saturated steam is taken from the upper mixing plenum and flows back 
down through the core for second pass heating within the annular fuel elements. 
During this second pass, the steam is superheated. It should be noted that 
this concept makes each individual fuel element into a pseudo counterflow 
neat exchanger. In this reactor application, the separating tube provides 
a source of power to the two coolant streams; the system, in this sense, is 
an active rather than a passive one. 

With the counterflow arrangement, the temperature profile of the two 
coolant streams can be used to work against each other. The wall temperature 
of a solid fuel pin producing heat is controlled by the temperature of the 
coolant. In the counterflow arrangement, there are two coolant temperatures 
which regulate both the inside and outside fuel element temperatures. At the 
bottom of the reactor core, superheated steam is leaving which raises the in- 
ner fuel element wall temperature. On the outside of the fuel tube, the rela- 
tively cold feedwater is entering which depresses the outer wall temperature. 
Based upon the radial power distribution across the fuel material and the heat 


transfer parameters, a certain fraction of the power generated will go to the 
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Figure 1.1 





exiting steam. However, the temperature rise from the tube wall to the steam 
is decreased because of the counter heat flux caused by tne temperature dif- 
ference of the two coolant streams on opposite sides of the fuel element (a 
heat exchanger effect). 

What appears to be the greatest advanege of this system is the presence 
of the upper mixing plenum, which brings all first vass flow to a common 
state before the individual second pass entrances are reached. Tnis then 
damps out the effect of radial power peaking across the reactor and its in- 
fluence on the second vass entrance state. Tnus, the dry saturated steam 
entering a channel, wnich is producing powor above the core average, leaves 
with’ a temperature which is higher than that rrom the other channels, but not 
as high as the temperature which would result from a once-through arrangement 
when the fuel is producing power at the same high level. Also, as mentioned, 
the increased steam temperature resulting Tron this situation is lessened be- 
cause the counter heat flux from the second to the first pass coolant, is in- 
creased, thus decreasing the total heat fiux to the second pass coolant and 
the wall temperature of tne second pass cladding. 

The fact that the first pass flow is exterior to the fuel tube can sige 
rnificantly reduce the final variation of steam temperature from the CFR core, 
since more heat will flow outwards from the fuel to the first pass than to 
the second pass region. To illustrate this, consider the idealized situation 
in which a constant 65% of the power produced in the fuel material goes to 
the first pass coolant. Neglecting the effect of the heat flux due to the 
temperature difference between the coolant streams, and considering that only 
two cells are present aidleh have the same coolant flow rates but that one is 
producing twice as much power as the other, the enthalpy rise of the second 
pass coolant in the peaked channel will be twice that from the other channel. 


Considering tne total enthalpy rise from first pass inlet to second pass 
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outlet, the average enthalpy rise is 1.5 units with that from the peaked chan- 
nel being 1.675 and that from the second channel 1.325. With the interme- 
diate mixing stage, the ratio of maximum to minimum enthalpy rise is reduced 
to 1.264 (= 1.675/1.325) instead of two. 

A certain measure of safety is provided in this design against the ad- 
verse effects of scale deposition, manufacturing tolerances or other phenom- 
ena which would cause an increase in the thermal resistance between the fuel 
and coolant. When an increased thermal resistance is present on one side of 
the annular fuel element, more of the generated heat flows to the other side. 
Such an occurrence results in raising both wall temperatures and the maximum 
fuel temperature in the region of the obstruction. Cooling the annular fuel 
element on both the inside and outside lessens the danger of exceeding a 
temperature constraint when this situation occurs. A solid fuel element 
cooled on the exterior surface only does not possess this feature. 

One other advantageous feature of this design can be seen in Figure 1.1. 
A separate moderator region is provided for each fuel element which is en- 
tirely distinct from the coolant regions. In the boiling water reactor, the 
axial variation of power generation is dependent on the local condition of 
the coolant with a definite skewing of the power distribution toward the 
bottom of the core because of the increased coolant density and, hence, mode 
eration present at the bottom of the core. The presence of the moderator in 
the CFR core reduces the dependence of the local power generation rate in the 
fuel to the local thermodynamic state of the coolant. 

1.3 Steam Cycle 

The plant power for this study has been arbitrarily set at 25,000 SHP. 
Although higher than the plant power installed in the savANNIANT) it is repre- 
sentative of the requirements of a large number of current conventional 


marine power plants. On the other hand, it is much lower than the ratings 





of the majority of shore-based electrical power generating stations. Thus, 
the assigned rating of 25,000 SHP (approximately equivalent to 18.6 MWe) re- 
sults in a relatively small plant. In this sense, the study then becomes 
appropriate to portable power pilaneee be they for electrical power generation 
and heat or for propulsion. Since the context for the CFR plant concept has 
been in the marine field, only that area will be considered in selecting the 
plant steam cycle. 

A considerable number of conventionaloil-fired plants now operate with 
throttle inlet conditions of 600 psig, 850 °F. Naval units have been built 
which produce steam at 1200 psig, 1050 °F. The selection of the higher con- 
ditions for naval ships is influenced by the effect of plant weight on the 
ship's military characteristics and mission and is not as greatly dependent 
on the "dollar" economics which govern the selection of a merchant marine 
mlant cycle. 

In the search for an optimum conventional steam cycle, numerous studies 
have been made. These studies considered such variables as fuel price, op- 
erating expense, return-on-investment, and capital cost, among others. Their 
conclusions reflect the then current fuel oil price and plant ratings and 
include some comments on the effects of variations of these factors. 

In 1948 MacMillan and ee concluded that the optimum throttle con- 
ditions were 450 psig, 750 °F for installations producing 6000 SHP. For plants 
of higher ratings, they suggested that conditions at 615 psig, 850 °F be 
selected. 

Mm 

Ten years later Cheng and Dart published the results of an economic 
study on a 25,000 SHP single screw tanker. Their conclusions substantially 
reflect those of the previous study, namely that 600 psig, 850 °F represent 
near optimum conditions when referred ieroie trip distances of 3000 and 


25,000 miles. In their opinion, raising the steam conditions to 850 psig, 





900 °F could only be justified on the basis of longer distances and higher 
fuel prices. 

Later Nichols, Rubin and ee discussed the selection of machinery 
for 30,000 SHP tankers. Throttle steam at 600 psig, 850 °F is a common design 
point for current tankers of 25,000 to 160,000 deadweight tons. The advance- 
ment of these conditions to 600 psig, 920 °F is, in their opinion, a step 
which can be reasonably a to yield a higher cycle efficiency. 

MacMillan and Rhode have reviewed the selection of cycle conditions for 
plants in the 12,000 to 25,000 SHP range. Compared with a plant of 600 psig, 
850 °F, they concluded that an improved conventionally fired plant at 850 psig, 
950 °F will result in a plant weight savings of 155 tons and a reduction in 
fuel costs of about 13%. 

The conditions of 850 psig, 950 °F have also been recommended for the 
throttle design conditions for the "630A Nuclear Steam Generator", the pro- 
posed adaptation of the reactor studied for the nuclear powered aircraft to 
a marine propulsion plant , 

Based on these considerations, the design point for the throttle steam 
conditions in the CFR plant has been selected as 850 psig, 950 °F. These 
points then represent the current state of the art as regards the components 
of a marine steam plant. 

The salient features of the steam cycle into which the CFR is to be 
integrated are shown in Figure 1.2. The calculational method used follows 
that recommended for generating comparative marine heat balances . Data for 
main turbines, turbogenerator and main feed pump turbine steam rates were 
taken from reference 9. The summary of plant load requirements is given in 
Table 1.1. 

Considering that all plant load requirements other than those of the 


main propulsion turbines are parasitic, the cycle efficiency is calculated 
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Table 1.1 


PLANT LOAD REQUIREMENTS 


Ltem Requirement 
Main Propulsion Turbine 25,000 SHP 
Counterflow Reactor 57.4 MWe 
Reactor Coolant 177, 500 LB/HR 
Turbogenerator : 600 KW 
Pestillation Plant 2500 GPD 

Low Pressure Steam Generator 100 LB/HR 





as 32.6%. Utilizing the results of reference 9, a reactor inlet temperature 
of 404 °F is in the region of a relatively flat optimum for cycle efficiency. 

The turbogenerator load includes the effect of circulating pumps for 
condenser cooling. Scoop injection alone (using the velocity head of the 
ship to force cooling water through the condenser) is not feasible. The system 
must provide adequate cooling water to the condenser when the ship is backing 
down. 

The selection of this cycle does not include considerations based on 
plant weight. An independent and detailed optimization of a cycle with 
respect to plant weight or cycle efficiency and plant weight is beyond the 
scope of this study. References in the technical iterates ae to corre~ 
lations of equipment weight as a function of flow or performance character~ 
istics are no longer current and the effort necessary to perform an optimi-~ 
zation using these correlations is not considered to be justified. Suffice 
it to say that the steam cycle chosen parallels current marine practice and 
should not cause the plant weight to deviate sharply from its minimum value. 
1.4 Scope of the Study 

The primary aim of this study was to investigate the engineering feasi- 
bility of the reactor concept. Because of the relatively complicated geometry 
most of the effort expended has been in the development of an analytical and 
computational tool which will simultaneously solve the coupled nuclear, 
thermodynamic, heat transfer and hydraulic behavior of the two coolant passes 
through the fuel elements across the reactor. A detailed description of the 
approach used is set forth in Appendices A through E. To facilitate the 
anvestigation of power ratings and inlet conditions other than those chosen 
for the plant under discussion, the mathematical model used has been pro-~ 
grammed in FORTRAN languate for the IBM 7090 digital computer. A listing 


c. the program is given in Appendix G. 





After the development of the necessary mathematical tools, the study 
has investigated those reactor configurations suitable to the power rating 
of the 25,000 SHP marine plant discussed in the preceding section. The 
work "Suitable" can be intrepreted to mean many things. For the purpose of 
this study, it will refer to an engineering optimization of the core size 
such that the maximum power density will result, subject to the limitations 
of a design constraint. Before the application of any new concept, an 
economic investigation is normally conducted. This type of investigation 
is beyond the scope of this study. Minimum core size has been chosen as the 
variable to be optimized. For the marine application, reactor size is one 
of the primary factors that must be considered. 

The consequences of using a direct cycle arrangement with this reactor 
concept are briefly investigated. Emphasis here is placed upon the neces- 
sary machinery space shielding weights that must be provided as protection 
against the effects of a distributed radioactive coolant. Necessarily, the 
exact shielding configuration and weight is determined by the specific ar- 
rangement of the machinery space and cycle under consideration. Some gener- 
alized results of the requirements for a particular reactor power and overall 
machinery compartment size are derived from a simplified mathematical model. 

All investigations in this study have been conducted for the steady state 
condition. A complete transient study of a marine power plant using the re- 
actor power source described is beyond the scope of this study. Using numer- 
ical analysis techniques to define a mathematical model to study the transient 
behavior can be shown to lead to completely impractical solution times. The 
maximum time increments that can be used for such an analysis to ensure 
stability of the time-dependent difference equations for either nuclear or 
temperature transients is limited by the physical dimensions of the fuel 


tube. These time increments necessarily have to be of the order of a 
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microsecond. When the total number of space points within the reactor is 
considered, the solution time for a one-minute transient study requires a 
computer running time expressed in tens of hours. 

Because of the spatial distributions of power and temperature within 
the reactor, a method for formulating and solving the coupled transients by 
means of analog techniques and a lumped parameter model is not sufficiently 
accurate. The spatial temperature distribution in the fuel tube is crucial 
in determining the heat flow to the first or second pass coolant stream. 
This temperature distribution is functionally dependent on the state varia-~ 
bles of the coolants, which show large variations over the height of the core 
and cannot be represented by any simple mathematical correlation. 

As a starting point for conditions perturbed within the core, the study 
presents the results of calculating the maximum temperatures achieved when 
flow is blocked to one of the coolant channels. The validity of such calcu- 
lations, as to whether they represent the final steady state thermodynamic 
and power profiles for such perturbations, can be only determined from a 


complete transient analysis or by experimental verification. 
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Chapter 2 
OPTIMIZATION OF CFR TUEL ELEMENT PARAMETERS 
2.1 Scope 

An optimization of the reactor parameters could be based on any one of 
several different economic philosophies. For example, the optimization could 
be conducted on maximum return on initial investment or on minimum operating 
expense. Regardless of which criterion is selected, one of the sources of 
economic data that is not available is fuel cycle costs. There are several 
computer programs available to calculate reactivity as a function of core 
operating life but the deficiency with the present programs, as applied to 
the CFR core, centers around the fact that the provision for considering the 
shift in power distribution across the fuel tube as the fuel is expended is 
missing. 

In the typical nuclear reactor, in which individual fuel elements are 
cooled by a one-pass coolant stream, the change in power distribution across 
the core affects the "macroscopic" or "gross" limitations on available power 
generation rate. In the CFR reactor, the "macroscopic" or "gross" shift in 
power distribution is also present but additionally "microscopic" or "fine" 
shifts of power generation within each fuel element cause a variation in time 
of the heat produced that goes to either the first or second pass counter- 
flowing coolant. Presently available computational tools cannot describe 
this "fine" shift of power distribution which is necessary to devernee the 
maximum power that can be achieved at any point in the core life. 

In lieu of selecting the reactor parameters on the basis of economic 
considerations, the optimization subsequently described is based on achieving 
a core with maximum power density. This optimization is a static one, since 
only the effect of the "gross" and "fine" power distributions within the core 


and fuel element, respectively, are considered during the hot clean condition 
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of the core. The optimization is set up to determine the core of minimum 
volume that produces the requisite amount of power subject to the condition © 
that none of the design constraints are violated but that one of the con- 
straints is achieved. 

As a first step in defining the core of minimum volume, the investigation 
described in the subsequent sections of this chapter is directed toward de- 
termining the m inimum channel height for various other parameter combinations 
| that cause one of the limiting variables to approach its constrained value. 
During the presentation of the model used during the optimization study, it 
will become apparent that the primary variables defining the fee fuel 
element length depend primarily on the second pass flow rate and the fuel 
element radial dimensions. This first approach neglects the influence of 
nuclear parameters on the design and concentrates only on heat transfer and 
thermodynamic variables. The optimization thus finds only the minimum channel 
height, i.e., the core height, which satisfies the constraint. Nuclear aspects 
of the problem are uncoupled and are considered separately in the next chapter. 
Zo-2 Fuel Element Materials and Design Constraints 

At first glance, either of two oxide fuels appears suitable. The first 
is UO5, using u-35 as the fissionable material and U©38 as the fertile material. 
Uranium dioxide has a melting point of roughly 5000 °F, but this high tempera- 
ture is offset by its low thermal conductivity of 1 Btu/hr/ft/°F. For the 
counterflow arrangement of the annular fuel element cooling, the low value 
of the thermal conductivity masks the variation in the heat transfer coef- 
ficients to the first and second pass coolant streams. 

An oxide mixture in which thorium dioxide forms the basic structure with 
uraniun dioxide (u233Q5) interspersed is also a possibility. Like the all 
uranium oxide fuel, the melting point is high and the thermal conductivity 


is low. The advantage of this fuel revolves around the absorption characteristics 
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of thorium, which because of its resonance absorption cross section 1s more 

easily converted to a fissionable material. The technological experience with 
this type of fuel is small and because of this it has not been considered 
further in this study. Its heat transfer properties are not significantly 

different from the all uranium oxide fuel This is not to say that fuel cycle 


studies would not vindicate its use but only that present knowledge of its 





characteristics is not considered to be broad enough to extrapolate its use 
to this study. 

An alternative to the use of a ceramic fuel is to consider the use of a 
fuel dispersion in a metallic lattice. Although the heat transfer coefficient 
of this type of fuel is significantly higher and the temperature gradient 
between the two counterflowing coolant streams is consequently reduced, the 
nuclear properties of such an element are undesirable. Present technology 
indicates that the only dispersed fuel elements of this type which would be 
compatible with high temperature steam are iron or nickel base alloys. Both 
of these elements have high absorption cross sections, which would raise fuel 
cycle costs because of the increased parasitic neutron absorption within the 
core. 

Of these three possible fuel materials, the one selected for this study 
is uranium dioxide. No extrapolation is required to justify its use in the 
CYR core. With the exception of a small amount of absorption by oxygen, all 
absorptions in the fuel material take place in the u235 or y238 (disregarding 
fission products). The crystal structure of the oxide 3s cubic, which has 
an interstial space for retention of fission products. The material is com- 
| patible with high temperature steam or water so that the effect of a cladding 
rupture is minimized. The constraint which will be used during the course 
of.’ the optimization is that the maximum fuel temperature is limited to 4500 °F 


| and that the average thermal conductivity is 1 Btu/hr/ft/°F; these values 
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have been applied in the past by the U.S. Atomic Energy Commission as con- 
straints for other reactor feasibility studies. 

The cladding material chosen for the fuel element is Inconel-X. Under 
current USAEC design restrictions, the maximum allowable temperature at an 
interface between steam and Inconel is 1350 °F. Inconel is also compatible 
With the high temperature fuel oxide which it encloses. It is possible to 
conceive of Zircaloy, for instance, as being the cladding on the first pass 
side. The use of Inconel on both sides of the fuel is based on the premise 
that easier manufacturing and assembly of the fuel element will result. Al- 
though not directly related to the heat transfer optimization of the channel 
length,, this material will also be considered to be the boundary material 
between the first pass coolant and moderator. 

As will become evident later, the controlling design constraint is the 
maximum cladding temperature on the second pass coolant side. The subsequent 
discussion is directed toward demonstrating a technique of satisfying this 
constraint. The final result, optimized on the assumption that the cladding 
temperature is controlling, shows from the calculation of the maximum fuel 
temperature that this assumption is indeed correct. 
2e3 Design Variables 

The geometry of each cell is relatively complicated. On the basis of 
geometrical considerations, seven variables representing the various radial 
dimensions are introduced into the core optimization. Of these, ieee can 
be neglected for heat transfer and thermodynamic calculations, the three being 
the radial dimensions defining interfaces at the first pass coolant-moderator 
cladding, moderator claddingemoderator, and the equivalent moderator exterior 
radius. The remaining variables define the radial dimensions of the annular 
fuel element and its associated cladding. One additional dimension must be 


considered , that of the fuel element length (height of the active core). 





The nomenclature which will be used throughout the remainder of this 


chapter is shown in Table 2.1. 





Table 2.1 


NOMENCLATURE FOR FUEL ELEMENT OPTIMIZATION 


Descrivtion 


Second pass coolant and internal fuel tube cladding 
interface radial distance measured from the center of 
the seconc pass flow channel 

Internal fuel tube cladding and fuel interface distance 
Fuel and exterior fuel tube cladding interface distance 
Exterior fuel tube cladding and first pass coolant inter- 
face distance 

Ratio of rz to rg 

Second pass coolant exit velocity 

Specific volume of second pass coolant at exit 
Temoerature of second pass coolant 

T2 at exit 

Enthalpy of second pass coolant 

Ho.at exit 

Average specific heat of second pass coolant 

Thermal conductivity of cladding material 

Thermal conductivity of fuel material 

Heat transfer coefficient at rj 

Heat transfer coefficient at ru 

Heat transfer coefficient at rg and r3 between conducting 
reginns 

Enthalpy of returning feedwater 

Enthalpy of saturated vapor at first pass exit 
Temperature of first pass coolant 

Mass flow rate out of second pass coolant channel 
Effective thermal conductivity between the two counter 
flowing coolant streams 

Total power produced in the fuel element 

Length of the active fuel element 

Effective heat transfer coefficient from fuel to first 
pass coolant 
Effective heat transfer coefficient from fuel to second 
pass coolant 

Fraction of heat produced in the fuel material that goes 
to the second pass coolant, disregarding the heat flux 
due to the temperature differential between the two 
coolant streams 

Distance variable measured from second pass exit point 
up along the fuel element 

Derived parameter dependent on heat transfer and fluid 
Tlow 

Temperature differential between the cladding and second 
Passucoolant 

Cladding temperature at rj 


Me 











2.4 Simvolified Mathematical Model 

The variation of power generation rate within a fuel tube is dependent 
on the nuclear flux shape. If, as a first approximation, it is assumed that 
the power generation rate, both radially and axially is constant, the nuclear 
aspects of the problem are completely uncoupled from the non-nuclear heat 
transfer and thermodynamic aspects of the problem. The determination of a 
set of fuel element parameters, which will satisfy the design constraints and 
lead to an element of minimum length can be achieved using only those param- 
eters which involve heat transfer and thermodynamics. 

This assumption permits the development and utilization of a simplified 
model to determine the approximate set of values for an element of minimum 
height. If the second pass exit velocity V> and the thermodynamic inlet and 
exit conditions for the first and second pass coolant are stated for a typical 
cell in the core, the geometrical values r; through ry can be varied and the 
corresponding value of the maximum cladding temperature determined, once the 
length L of the cell has been found. Knowing the second pass flow through a 
channel within a cell, the total number of fuel elements in the core is fixed. 

Certain heat transfer quantities are necessary to solve the transcen- 
dental equation which defined the channel (core) length. These can be defined 


as follows: 


Tf h2 ry + ah 














Rha ~ oe + 2 
t = { me ) 
Ke ~ fahe + . oe 


On the basis of the thermal barriers which are present and are represented 
by the terms just defined, it can be shown (Appendix B) that the fraction fo 
of the total heat produced in an incremental length of fuel that would go to 


the second pass coolant (inside the fuel tube) is defined by: 
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An approximate thermodynamic balance can be written for an incremental 


length of second pass coolant channel as follows 


- We dite = £2 & + 2Dake(Ta2-T,) 


Zz 
As a further simplification to the problem, it can be assumed that the 
temperature Ty of the first pass coolant is constant. The first pass coolant 
undergoes boiling, so tnat in the voiling region of the channel the only in- 
fluence on the bulk coolant temperature is caused by the pressure loss - 
the coolant travels up the channel. Between entrance and the point where 
boiling occurs, the bulk coolant temperature rises. For the desired condi- 
tion of second pass exit temperature To, at 955 °F when the pressure is 885 
psia, the temperature differential, assuming no subcooling of the first pass 
coolant at inlet pressure of 900 psia, between the two coolant streams is 
423 Fo. For the case when the returning feedwater is at 404 °F and the recirc- 
ulation through the first pass channel is adjusted such that 10% steam exits 
into the upper plenum, the first pass inlet temperature is 520 °F and the 
temperature differential between the streams at the bottom of the core is 
435 FO, This introduces an error of approximately 3% in the heat flow from 
the second to first pass ae which is within the limitations of -the 
model, With this assumption, the temperature Ty is not a function of position. 
The rate of change of second pass enthalpy Hea can also be expressed in 
terms of the rate of change of temperature Tp and the average specific heat 
capacity of the second pass coolant. The second pass coolant enters as dry 
saturated re at the temperature T;, if the pressure loss in going from 
first pass exit to second pass inlet is neglected. If the desired second 


pass exit temperature and enthalpy are specified, the average specific heat 


19 





c. of the second pass coolant is 


ow 


Go : Hoe Salli 


Tae - 


fin 


Tne final approximation in this model is to neglect the axial variation 
of the derived heat transfer properties fo and kg. When this is done, the 


equation for second pass temperature variation is 


da 2 
~Wa C2 i c 2 2 - 27 Ke (T2 -T)) 
Tne boundary conditions for integrating this equation are that at z = 0, 
T2 = T2g, and at z=tL, To = Ty. Evaluating the integration constant at 


z= L and then writing the transcendental equation at z = 0 yields 


Wece2 (Tee -T:) : folio ees) 
Q aL 


where 


aX = 2 7 Ke 
We C2 


The total heat Q produced in a fuel tube is simply 
Q = We(Hee-H,) | 
where H, is the enthalpy of the returning feedwater. Using the definition 
of the average second pass coolant specific heat co, the transcendental 
equation reduces to 


H2e-Ha - ie 


mae = Hy xl 
The left hand side of this equation is fixed by the inlet and outlet coolant 


conditions and operating pressure in the core. All terms in the RHS are 
known except L, the length of the channel. A trial-and-error solution to this 
equation fixes the channel length L. 

Once the channel length L has been determined, the maximum temperature 
differential at the interface between second pass coolant and cladding 
can be determined. It is defined by 
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AT = See | 4a - 27Ke (Tee -7)] 
since it must occur at the bottom of the core under the assumption that the 
power generation rate along the fuel and first pass coolant temperature are 
constants. The calculation of AT is the first indication as to the accepta- 
bility: of the particular parameter set to meet the design constraint on maxi- 
mum allowable cladding temperature. The maximum cladding temperature is 
simply the sum of To, and AT. 

The second pass flow rate Wo through an individual channel is determined 
from the specified second pass exit velocity Vo, second pass channel radius 
ry, and the specific volume of steam at the desired exit conditions of temper- 
ature and pressure. 

2.5 Influence of Design Variables on the Cladding Temperature Constraint 

Tne two variables rj, the second pass channel radius, and V2, the second 
pass coolant exit velocity, jointly play a major role in the determination 
of the maximum cladding temperature. In conjunction with the stated coolant 
inlet and exit thermodynamic states, they fix the following derived quantities: 

a. Second pass mass flow rate through a channel 

be Power produced in a fuel element 

c. Number of cells in the core 

d. Heat transfer coefficient at the second pass coolantecladding inter- 
face, which determines temperature rise from the coolant to the cladding and 
is a controlling term in the definition of the effective thermal soudnetsaerer 
Kk, and hence the heat flow fraction fo. 

The two dimensions, which specify the fuel material thickness, r2 and r3, 
jointly fix one of the more controlling terms in the definition of Kg and fo, 
namely the term 1n(R)/kre. For an application in which a metallic fuel material 
could be used, the relative importance of the ratio R would be reduced, since 


the thermal conductivity of the fuel is the divisor in the term. The ceramic 
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fuel U0. has a relatively low thermal conductivity, as specified in the ground 
rules for the optimization, and the direct effect of a large ratio of R is 

not reduced in the expression entering the definition of effective thermal 
conductivity ke. It should be noted that the fuel material dimensions are 
descrived in terms of the non-dimensional ratio R in both the expressions for 
k, and fo. This ratio then is a controlling design variable rather than the 
dimensional values for ro and r3. 

The cladding thicknesses, which are determined by the variables r,, ro 
and r3, ry, must be fixed by strength and safety considerations. For the case 
of the cladding surrounding the fuel, the maximum thermal stresses will occur 
at the bottom of the core because of the steeper temperature gradients present 
there. For the selection of parametors resulting in a fuel element of mini- 
mum height, these other considerations rule out the possibility of independently 
varying these dimensions. The effect of the inner cladding thickness on the 
determination of the channel length L is small compared to the other inputs 
to the expression for effective heat transfer coefficient h2 and its influence 
on the expressions for k, and fo. The outer cladding thickness provides an 
input to the effective heat transfer coefficient h3, but this term does not 
Significantly affect the values of ke and fo. 

2.6 Optimization Technique 

With the definition of an analytical model, the determination of the 
fuel element of minimum length L becomes relatively straightforward. The 
primary variables for investigation are Vo, r; and R. For each combination 
of these variables, a value for the fuel element length L and maximum temper-~ 
ature differential between cladding and second pass coolant is fixed. 

Tne manner in which these calculated values are used is optional. The 
method used in this study proceeded by fixing Vo and R and generating a curve 


of Ai vs rj and a curve of Lvs ry. Holding the velocity V2 constant, families 


22 





of curves were generated for different values of R. When the curve of AT vs r, 
reached the constrained value of AT (the difference of the limiting cladding 
temperature and second pass steam exit temperature), the value of r; at which 
this took place was used to enter the second set of curves of Lvs ry at con- 
stant Vo and R to pick off the corresponding length L. 

Tne resulting set of vaiues of L, ri, R and V2 defined a family of curves 
wnich had one thing in common - the curves were valid for a constant value 
of AT, the variable used to represent the design constraint. Plotting curves 
at constant values of Vo for Lvs R and rj vs R permitted the determination 
of the channel of minimum length L for a given R and the value of rj on the 
curve of rj vs R uniquely fixed the combination that satisfied the constraint. 
Subsequent plots of minimun L vs Vo and rq and R at minimum L vs Vo then com- 
pletely fixed the dimensions. 

The search for values, at which the constrained cladding temperature 
was achieved, used the cladding-coolant temperature differential as the ini- 
tial variable upon which the optimization was performed. It should be noted 
that this choice is only valid for the situation assumed in the model, that 
is, that the power generation rate along the fuel element is constant. Ina 
more realistic situation,.the maximum cladding temperature would not neces- 
Sarily occur at the exit point of the second pass coolant but would depend on 
the local heat flux and coolant temperature at some arbitrary point up the 
fuel element. If the effect of a variable axial power generation rate had 
been introduced into the model used, the maximum cladding temperature and 
the exitinz steam temperature could be used to define a new dummy variable 
(the temperature differential) which would vary with position along the 
channel; nevertheless, a maximum differential would exist. 

Tne vemperature differential is a function of the power produced in the 


~.vs. vsoment, Tne resultant calculated data is better presented using this 
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quantity as a measure of a given combination of values to meet the constraint 
temperature than the actual maximum cladding temperature. A log-log plot 

of AT vs r, at fixed values of Vo and R results in a gently sloping line. 
Presentation of the calculated terms using the maximum cladding temperature 
directly vs r] yields a much more sharply curving line and hence requires 
additional points to more accurately describe the loci of points on tne curve. 
2.7 Ontimization Results 


The range of the three controlling parameters Vos r, and R used in per- 


it 
forming the optimization were as follows: 


Variable Range Increment 
Vo 100 = 300 ft/sec 100 ft/sec 
ry 0.25 = 2.0 cm Various 
R el = 50 Various 


Those values needed to conduct the analysis, other than those specified 
by the thermodynamic state of the coolants, are given. The thickness of the 
interior and exterior cladding around the annular fuel region was set at 20 
mils; this value thus determined ro when r) was given and r4 when r2 and R 
were specified. The interface heat transfer coefficient hi between the clad- 
ding and fuel regions was assigned the value of 1000 Btu/hr/ft*/°F, The thermal 
conductivity of the Inconel cladding kg was taken at 8.4 Btu/hr/ft/°F. 
Lastly, the average value of the heat transfer coefficient between cladding 
and first pass coolant hy was taken as 5000 Btu/hr/ft/*/°Fr. With these values 
and those determined by the thermodynamic state of the coolant, the results 
were calculated, 

The results of plotting the maximum cladding-coolant temperature dif- 
ferentials are shown in Figures 2.1 - 2.3. The calculated channel lengths L are 
shown in Figures 2.4 - 2.6. After those points are established on Figures 2.1 


- 2.3 for a given temperature differential, the corresponding channel lengths 
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can be read from the second set of figures. 

The desired second pass steam exit temperature is 955 °F. From Section 
2.2, the maximum allowed Inconel cladding temperature is 1350 °F. The maximum 
allowable temperature differential is thus fixed at 395 F°. It must be remenm- 
bered that this value is only valid for the ideal situation in which the power 
generation rate is constant throughout the core. The model used to generate 
Figures 2.1 - 2.6 had no provisions for “ineluding the effects of spatial 
Variation of power generation, i.e., power peaking. 

The values of the cladding-steam interface temperature differential 
chosen for further detailed investigation are 295 , 245 Fo, 195 FO and 145 
FO, These correspond then to margins of safety for not exceeding the constrained 
maximum cladding temperature of 100 F°, 150 F°, 200 F and 250 F, respec- 
tively, under the assumption of flat power generation. As a first approxi=~ 
mation, this presupposes that the maximum-toe-average power generation rate 
will fall someplace between 1.35 and 2.6. 

When one of the chosen temperature differentials is used to enter Figures 
Ze1 - 2.3, the value of the inner radius r; for a given ratio of annular fuel 
element radii (r3/r2) is determined. Imntering the corresponding set of Figures 
2.4 - 2.6 with these values then fixes the length L of the fuel element. The 
results of plotting these points for a given value of AT and second pass exit 
velocity V2 are shown in Table 2.2 and Figures 2.7 - 2.12. 

In the discussion of design constraints in Section 2.2, it was pointed 
Out. that the maximum allowable temperature for the U0 fuel is 4500°F. Taking 
the case of the minimum channel length for AT = 295 Fo at Vo = 100 ft/sec, 
the maximum temperature in the fuel is calculated to be 1570 °F. Thus, the 
cladding temperature constraint is controlling in the optimization. 

Inspection of Figure 2.9 and Figure 2.11 shows that the curves of length L 


for V2 at 200 and 300 ft/sec are still decreasing as the value of R decreases. 
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Tre lowest point of these curves was calculated wnen ry was equal to 0.25 cm. 
The curves were terminated at this value since continuation beyond is considered 
to be unrealistic from the manufacturing standpoint. The graphical minimum 

for Vo at 100 ft/sec and OT at 295 F occurs at slightly under this cut-off 
dimension, Only for the case of Vo at 100 ft/sec does a minimum exist in 

the plot of length L. 

As shown in Figure 2.8, the radius r; decreases above 0.25 cm as (r3/r9) 
approaches unity. For values of Vo at 200 and 300 ft/sec, one would expect 
that the radius ry would increase as (r3/r2) decreases for any given temper- 
ature differential AT. For ry, = 0.25 cm and (r3/r2) = 1.5, the calculated 
temperature differential is 90.7 ™ for Vo = 200 ft/sec and 43.3 F for V2 = 
300 ft/sec. In both cases, the minimum temperature differential T had not 
been reached when (r3/r9) was reduced to 1.5 and r, was neld constant at 0.25 
em. Thus, even though values of ry might be found above 0.25 cm for small 
values of (r3/r2), no calculations were actually carried out to determine 
them. At these small values of (r3/r2), the volume percentage of fuel that can 
be loaded into the core becomes very small and, hence, that of the cladding 
becomes larger. The fact that a higher rate of parasitic neutron capture in 
the cladding would result for parameters in this region obviated the require- 
ment to perform the calculations necessary to demonstrate a graphical minimun. 

The optimum set of fuel element dimensions for maximum core power density 
can be determined from the curves of length L for a given steam velocity and 
vemperature cifferential based on the assumed power distribution, heat transfer 
and “hermodynamic conditions. Nuclear considerations, not included in this 
mocel, must also be weighed when choosing the optimum set. The dimensional 


sets generated here provide a starting point for determining the complete 


set or core dimensions. 








hapter 3 
MATHEMATICAL MODEL TO ANALYZE THE COUNTERFLOW REACTOR 
3.1 Introduction 

The results presented in Chapter 2 dealt specifically with the fuel 
element parameters under several simplifying assumptions. Briefly recapping, 
the: assumptions made were (1) power generation within individual fuel ele- 
ments and across the core had not spatial dependence, (2) the temperature of 
the first pass coolant throughout the height of the core was constant, and 
(3) the heat transfer properties of the coolant streams did not change within 
their respective channels. With these assumptions, it was possible to define 
=e fuel element dimensions by not considering the nuclear aspects of 
the power source. 

The above noted model does not present the power and coolant property 
Variations in sufficient detail. In addition, there is no means of telling 
if, for a given fuel enrichment, that the reactor will even achieve criti- 
cality. Because of the coolant density changes, there is no means of deter- 
mining whether the flow pattern across the core is stable or unstable. In 


sumary, finer details are necessary to determine wnether or not the concept 


is feasible. 
me  ocope 

The reactor is an assemblage of the cells shown in Figure 1.1. As such, 
a rigorous analysis of the reactor would involve the solution of a three-di- 
mensional problem. Making the assumption that the parameter variation is 
rotationally symmetric about the center line of the right circular cylinder 
which is the core, the problem can be reduced to one of a two-dimensional 
nature. 

The variation of the different parameters (flux, powex temperature, 


etc.) could be represented in terms of analytical functions. Unfortunately 
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the problem is so complex that a trial-and-error type of solution is required. 
The reiterative approach, which is required to solve the coupled nuclear, 

heat transfer, fluid flow, and thermodynamics problem, suggests that the 
problem be formulated in sets of difference equations, This approach has been 
used here, particularly because of the relative ease to which this type of 
problem lends itself to programming on a digital computer. The majority 

of the effort expended in this study has been devoted to the development of 
the analytical model which described parameter variation and the subsequent 
vrogramming of the model. As such, the program which has resulted can be 
applied to any reactor which follows the concept of the CFR and is not limi- 
ted to reactors of the power rating, total flow oa inlet conditions discussed 
here. 

Programming the model imposes some limitations on the scope of the 
problem, although it almost completely eliminates the computational effort 
znvolved, once the program has been written, to study a particular parameter 
set. Tne computer storage size and the time available to run the program 
are the primary limitations on the detail to which the coupled problems can 
be solved. With the facilities available at the MIT Computation Center, the 
model had to be formulated in terms of a one-dimensional problem. To make 
the results more realistic, correctional factors are generated internally 
during the course of running the program to re-insert the two-dimensional 
nature of the problem into the various nuclear calculations. The computer 
storage size not only reduced the problem statement to one-dimension but 
limited the number of nuclear groups that could be studied to two. 

Since the problem has to be formulated in one dimension, a detailed . 
analysis of the effect of control rods on the flux and power distribution is 
not readily achieved. The height to which control rods are inserted into 


the core causes a variation of the axial power distribution. likewise 
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| the presence of control rods introduces local variations into the radial 

t= distribution which cannot be considered in terms of rotational sym- 
metry. To determine whether the particular reactor configuration and con- 
stituent make-up lead to a critical system, the asswnption has been to load 
| ie core homogeneously with a poison. If the poison concentration required 
|to give the reactor a reactivity of zero or more is positive, the reactor 
Meee attein criticality. 

These opening remarks have dealt primarily with the nuclear sapeateet 
the problem, since their solution most severly limits the scope of the 
computational model which can be used. The remaining sections of this chap- 
ter will present the concepts used in solving the coupled problems. The 
details of their implementation are left to the appendices for presentation. 
3.3 Nuclear Model and Reactor Subdivision 

The model chosen to describe the steady state flux and power distribu- 
tion is that of twoegroup diffusion theory, because of the relative simpli- 
city with which it can be applied and a solution obtained, in contrast to 
the greater complexity which results when a higher order transport theory 
approximation is used. It does suffer from a lack of precision, particular- 
ly in the fuel regions. The basic equations which apply to this model for 


th 


the j" group (j = 1, fast; j = 2, thermal) are 


a. Conservation Equation 
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c. Current Boundary Condition at an Interface 
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feerowes Goneration at a Spatial Point 
f11 these terms are essicu .o oe constant within a given region except the 
aeux gu and the local power generation rate PP. One assumption made here 
has been that the power generation rate P arisos only from direct fission 
Meeulcle heating; the model thus neglects the effect of gamma heating in re- 
gions other than the fuel. The conservation equation is formulated in terms 
of central differences. 

Tne equations, coscribing tne flux distribution, have been applied to 
a reactor which is sutdivided as shown in Mgure 3.1. The reactor can be 
proken into a total of 49 different subdivision (in the present computer 
program) of which 30 are peculiar to the core. Tne exterior subdivisions 
Meare Cither the raclai or axial reflector regions. The nuclear properties 
Wathin each of tne 49 regions are asstucd to be constant and are determined 
mmm nOomogenization of a cell orcdusing power at a rate wnicn is character~ 
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value. In the calculations, the flux shape within the cell is assumed to be 
rotationally symmetric about the center of the cell. The fact that the cells 
are set on a square pitch, as shown in Figure 1.1, is circumvented when ap-~ 
plying the rotational geometry by assuming that an equivalent exterior cell 
radius can be defined such that the area enclosed by it is equal to the area 
enclosed by the square perimeter. The diffasion coefficient homogenization 
is accomplished by converting the diffusion coefficient back to its equiva- 
ident transport cross section, homogenizing the transport cross section by 
flux and volume weighting, and converting this homogenized transport cross 
section back to an equivalent diffusion coefficient, 

The cell region homogenization is performed on a strictly one-dimensiona: 


Basis at the position in the cell where the average coolant density was 
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defined. Tne boundary conditions imposed are that the neutron current is 
zero at the origin and at the equivalent cell radius. Additionally, the 
assumption is made that the leakage cross section for neutron loss in the 
goel direction is zero. 


Beee Axial Nuclear Calculations 





With the generation of the homogenized subdivision properties at some 
given radial position in the reactor, it is possible to calculate the flux 
and power shape along an axial line in this region. For this calculation the 
boundary conditions are zero flux at the top and bottom of the reactor (which 
ineludes the axial reflector regions). The leakage cross section, which re- 
fers to neutron flow in a radial direction, can now be either positive or 
negative, respectively, depending upon whether the net number of neutrons 
flowing into the axial een is negative or positive. The details of the 
way in which the leakage cross section is generated are presented in Section 
A.12; equations (A-71) through (A-74), which sumnarize the results, are 
quite lengthy and will not be repneated here. 

One of the results, which is obtained from the axial calculations, is 
the axial power distribution in a typical cell within that radial region of 
the core. 

3.323 Radial Nuclear Calculations 

The power distribution radially across the core is calculated after 
boundary conditions of zero current at the reactor centerline and zero flux 
at the edge have been assigned. The properties used in this calculation are 
the same as those used in the axial calculation except that only the sub- 
division propertios at mid-height in the core are used. The leakage cross 
section for this type of calculation now refers to loss out through the top 
and bottom axial reflector regions. The leakage cross section is defined in 


terms of the system "buckling" ‘and the technique used to generate it is 
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described in Section A.13. 

The radial calculation is used to determine the flux and power distri- 
bution across the core. The total power produced in each radial region of 
the core is assigned to the cells in that radial region on the basis that 
they are producing at the same rate. From the axial calculations, which 
determined the axial power distribution, the power produced in a given length 
of fuel rod is fixed; with the completion of a radial reactor calcula 
the power generation map for the core is fixed. 

fter a radial calculation has been completed, the criticality of the 
system is calculated. Based upon the results of this calculation, the homog- 
enous poison cross section is varied such that the reactor meets the speci- 
fied value of criticality. If the poison concentration does in fact have to 
be changed, the new concentration is inserted and another radial calculation 
is performed. The procedure is repeated until the desired criticality is 
achieved. 


~3e4% Seauence of Performine Nuclear Calculations 





The nuclear properties of all materials within the core are assumed to 
be constant. In the generation of macroscopic cross sections and diffusion 
coefficients for each of the reactor subdivisions, only the coolant regions 
show variation in density. Thus, specifying the macroscopic properties of 
all cell regions other than those for tne coolant and the microscopic proper- 
ties of the coolant fixes the external nuclear inputs to the problem. 

Before a series of nuclear calculations is started, the coolant densities 
at the different locations within the core are assumed to be known. For a 
given radial region, the properties of the different axial subdivisions are 
homogenized starting at the ese subdivision in the core and Gone to the 
top subdivision. After the exial calculations are performed on this radial 


region, the sequence advances to the next outward radial subdivision and is 
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repeated. When the axial calculation in the outermost radial core subdivi- 
sion has been completed, the radial calculation is performed. 

Tais approach can be characterized as being a "marching" type of solu- 
tion, Txe major step is outwards, the minor steps are upwards. With the 
inclusion of the leakage across sections, it provides a satisfactory solution 
to the two-dimensional nuclear problem using a one-dimensional model. 

3.4% Heat Transfer and Thermodynamics 

These two problems are consicered together because of their close rela- 
tionship. Actually, heat transfer is dependent upon fluid flow, but the 
technique used to determine the fluid flow profiles require slightly more 
tnan the "broad brush" treatment of this Bs hiss. 

Tne solution to the nuclear oroblem, previously discussed, determines 
the power generation rates of a typical cell in each of the radial regions 
of the core. The axial nuclear calculations determine how much power igs 
produced in a given axial slice of the different typical cells. Within two 
adjacent axial slices of the same cell, ths variation of heat transfer and 
thermodynamic properties can be calculated by utilizing the technique 
indicated in Figure 3.2. All the heat transfer properties and thermodynamic 
properties within a given core subddivision are assumed to be constant. 

3.4.1 Selection Basis for Average Coolant Properties 

Tne axial position within an axial slice at which the average coolant 
properties are defined is made to coincide with that position in the subdi- 
Vision at which half the power produced has been generated. This point may 
Or may not occur at the median position of that subdivision. This assumption 


neglects the curvature of the power generation rate within the subdivision. 





+2 Calculation of the Heat Flow Fraction 





During the course of the cell homogenization calculations, a radial 


“lux plot is made across the cell at the position where the average coolant 
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properties occur. Within the fuel material, the "fine" radial variation of 

the power generation rate is calculated. Tne shape of this curve is a face 

fer in determining what fraction of the heat produced in that segment of the 
cell will flow either inwards or outwards, based on the thermal resistances 

that are present. 

The heat flow fraction can be described in terms of an analytical func- 
tion. In the discussion of Chapter 2, the power distribution ee the 
fuel in a cell was assumed to be constant. Using the discrete values of 
power generation in the fuel, as determined by the nuclear calculations, an 
analytical function is generated which defines the local power curve. The 
function used is a fourth order polynomial, which is found by making a least 
Squares fit. 


using the local calculated value of the first and second pass heat 
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transfer coefficients, the heat flow fraction to the first or second pass 
can be calculated. Appendix B demonstrates in detail the procedure which 
is used. 


3.4. 


Calculation of the Average Coolant Proverties 





Tne fact that power can be transferred from the second coolant pass to 
the first across the fuel tube makes the direct solution for the average 
coolant properties impossible. The solution is obtained by trial-and-error, 
the question being which approach will most expeditiously produce the solu- 
tion. The technique which has been used is to first uncouple the interac- 
tions between the two coolant streams, work through the core, first upwards 
along the first pass channels and then dack down along the second pass chan- 
nels. Using the heat flow fractions anc ‘temperature differentials between 
the two coolant streams, as determined by the preceding iteration, it then 
is possible to generate a new set of heat flow fractions and coolant proper~ 
ties. At the end of this subsequent iteration, the values generated are 
checked against those from the previous iteration; if the two values agree 
Witnin specified convergence limits, the iterations cease and the problem 
is assumed to be solved for the given core power generation map. 

3.5 Fiuid Flow 

All flow of coolant through the core is bounced on the bottom and top 
of the core by common plenums. The different first or second pass flow chan- 
meis thus are eavivalent to a set of parallel circwits. Because the flow 
Originates and exits into common plenims, the pressure drop across the core 
for all first vass flow channels must be the same and the pressure drop for 
all second pass flow chan nels must be the same. 

As noted in the preceding section, the calculation of the coolant prop- 
erties at each of the different core subdivisions is obtained by uncoupling 


the counterflow effect. That this method of solution was used is caused by 
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the requirements for determining the fluid flow profiles across the core. The 
sequence of operations described in the preceding section involved sweeping 
Out across the core, first for the first pass channels and then for the 
second pass channels. 

After a sweep has been completed, the pressure drop across the core for 


~ 
: 


the individual coolant channels is caicuiatsc. T27 the pressure drops do not 
agree within specified convergence limits, the flow through the channel is 
elther increased or decreased, devending upon whether the pressure drop is too 
small or too large. When the individual flow rates have been calculated to 
yieid the same pressure drop for all the channels, the total flow through the 
core is calculated. If this total agrees with that specified in the problem 
statement, the calculation proceeds to either the second pass sweep or to the 
verification of no significant change between average coolant properties between 
two complete radial sweeos. The problem is terminated if the pressure drop vs 
flow rate curve has a negative slope, i.e., that the flow conditions are not 
Stable. | 

The total flow through the first vass channels is specified by the input 
to the proolem., Hither of two options are employed for the second pass flow. 
If the average enthalpy of the upper mixing plenum is below the enthalpy of 
saturated liquid at the plenm pressure, ail the first pass flow will be as- 
sumed to go to the second pass. If, on the other hand, the average enthalpy 
of this plenim is above that for saturated liquid, only that fraction of the 
first pass flow, calculated as the net steam quality, will go to the second 
Pass channels. This second option corresponds to the concept of the CFR. 
3.6 Sequence for Solving the Coupled Problem 

The idealsituation which could be encountered would require that the 
vower generation rates within the core were constant. Using this as a start- 


ing point, the average subdivision coolant properties are calculated. The 
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problem then snifts to nuclear calculations and generates the power distri- 
bution which would result if the assumed coolant properties did exist. The 
calculated power distribution will not agree with the assumed, until a suf- 
ficient number of iterations have been performed for convergence to take 
place. 

The power generation map is averaged out between the two nuclear itera- 
tions, subject to the condition that the total power produced within the 
core is equal to its stated input value. This averaging process is based 
on weighting the calculated value by 0.75 and the value of the previous iter- 
ation by 0.25. These weighting factors were chosen to eliminate the possi- 
bility of oscillations as the iterations progressed toward convergence. 

Once the new power map has been estabdiisned, the problem shifts back 
to generating a new set of average coolant vroperties. For a given power 
mapping, the resultant average coolant properties have already achieved con- 
vergence before the generation of a new map starts. The coupled problem is 


assumed to have achieved convergence when subsequent power mappings agree. 
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Chapter 4 
CHARACTERISTICS OF THE CFR 
“1  Descrintion 

Tne concept of the CFR arrangement is the same as that of the convention- 
al counterflow tube-and-shell heat exchanger. The difference between the CFR 
and the passive heat exchanger is that the tube material itself contains nu- 
clear fuel and generates heat which is transferred to the two counterflowing - 
fluids which surround the tube. On the detailed scale, Figure 1.1 presented 
schematically the concept as it exists for a single cell or fuel element. 
Section 1.2 discussed some of the advantages of this concept. 

Two alternatives are available for this concept as regards the method in 
which Poceration of the neutron spectrum can be achieved. One is to employ 
the returning feedwater as the moderator. The other is to consider the use 
of a solid material. For both these concepts, the presence of a third clad- 
ding region is required, this region separating the first pass coolant from 
the moderator, In the case of feedwater moderation, separation of the first 
pass coolant and moderator vrevents mixing of the two fluids and uncouples 
the effects of the moderator density variation on the power distribution. 

The returning feedwater at a temperature of 404°F (Figure 1.2) mixes with 
saturated water recirculated down from the too of the core to give a first 
pass entrance temperature of approximately 520°F. Boiling occurs in the first 
pass channel but the temperature rise from entrance to exit is all since 
only 10% steam is produced (Section 2.4), the saturation temperature for 

steam at 900 psia being 532°F. Thus, there is a variation of the temperature 
driving force between coolant and moderator which varies only from 128°F to 
116°F along the height of the coolant-moderator cladding region. 

As a first choice for a solid moderator, beryllium oxide has been chosen. 


Beeewteeccsial is compatible with water and provides™ the best moderating 





properties of a solid material. The utilization of a solid moderator frees 
the power distribution in the fuel element from the effects of density varia- 
tion of the moderator. 

As stated earlier in this section and also in Section 2.4, the core has 
been designed to produce first pass coolant at the saturated state with 10% 
steam. Tnis choice is arbitrary. It was chosen since the resultant "DNB 
meeo” or "critical heat flux ratio" is not approached and the effect of 
coolant density change does not severely restrict the design due to flow insta- 
bility problems. For the range of conditions studied, the maximum calculated 
"Critical heat fiux ratio" was found to be of the order of 0.20. Using the 
Tong model to describe either the maximum enthalpy rise or maximum heat flux 
(Appendix, Section C.6), the value of the "critical heat flux ratio" was de- 
termined to be the larger of either the ratio of local to burn-out heat flux 
Or the actual to burn-out enthalpy rise of the coolant. 

Figure 4.1 and Migure 4.2 schematically depict the flow of the coolant 
and recirculating water in the Ho0 and BeO moderated CFR's, respectively. The 
solid lines in both figures extending from the upper to the lower tube sheets 
represent the fuel element tube. Within the region defined by the core, these 
tubes contain queen fuel. First pass coolant flows up along each of these 
tubes in a small annular region defined by the outer fuel cladding and the 
moderator cladding and exits from the core region into the liquid layer above 
tne core, which serves as both an axial reZlector and the upper mixing plenun. 
Wet steam rises from the liquid layer and must pass through steam separators 
DSefore it can reach the dry steam plenum located in the upper hemispherical 
region of the pressure vessel; the separated liquid fraction falls back into 
the liquid layer on top of the core. The dry saturated steam is then drawn 
back downward through the core for the second pass and is superheated, exiting 
into the second pass core exhaust plenum where it mixes before being directed 
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out of the pressure vessel to the turbomachinery. 

Within the core itself, there is a significant difference between the 
>0 and BeO moderated concepts. For the Ho0 moderated CFR shown in Figure 4.1, 
part of the returning feedwater is diverted into tha moderator region of the 
core. This 1s accomplished by baffle plates at the upper region of the radial 
reflector. This portion of the feedwater-moderator flows down the core in the 
region of the individual cells, defined by rg and the dashed line indicating 
the outer cell boundary, as shown in Figure 1.1, mixing with the recircula- 
ting saturated water below the core and then entering the first pass channel 
for heating. For the BeO moderated CFR in Figure 4.2, all returning feedwater 
flows down around the exterior of the BeO radial reflector. 
4.2 Selection of Parameters 

Chapter 1, Optimization of CFR Fuel Element Parameters, described some 
of the arbitrary decisions that were made for determining the initial round 
of values for optimized fuel element parameters based on minimum core size or 
maximum power density within the core, subject to certain material constraints. 
The discussion of Chapter 2 was oriented solely to the selection of parameters 
that would lead to an optimized design based on heat transfer considerations 
for completely uniform power generation within the fuel material. In this 
respect, fuel and cladding materials were chosen and the cladding thickness 
fixed. 

The nominal inlet first pass flow velocity has been set at 7.5 ft/sec. 
This selection is somewhat arbitrary. One of the problems inherent in this 
concept is that first pass flow is through an annular column outside the fuel 
element. The entering coolant is pressurized water with a much higher density 
than the exiting second pass steam. The required area for first pass flow per 
channel can be easily determined by the selected second pass exit steam thermo- 


dynamic conditions, flow rate and channel area as a function of first pass 
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inlet velocity. To make the selected first pass radial dimensions realistic, 
the width of the resultant annulus cannot he beyond manufacturing tolerances. 
The smaller radius of the annulus will be several times larger than the chan- 
nel radius for the second pass flow. Because of the ratio of densities between 
the two coolants, the resultant width of the annulus can become quite small. 
The lower the inlet velocity of the first pass coolant is made, the greater 

the width of the annulus must be. 

The parameter combinations displayed in Table 2.2 were used in determi- 
ning the reactor characteristics set forth in this chapter. With the earlier 
specification of first pass inlet velocity and first pass exit steam quality, 
all radial physical dimensions of a cell assembly are fixed except the equiva- 
lent cell radius for a given second pass exit velocity. What the value of the 
equivalent cell radius would be was determined by fixing the cell moderator- 
to-fuel volume ratio. In the case of the Ho0 moderator, the moderator-to- 
fuel volume ratio was fixed at 2, for the BeO moderator at 10. 

investigation of the parameters for an H70 moderated reactor with a 
second pass exit steam velocity of 100 ft/sec yielded the following results. 
For the smaller values of (r3/r2), the ratio of outer-to-inner fuel material 
radii, the core could not be made critical. The cladding thicknesses had 
been fixed and for the small values of (r3/r2) the cladding acted as a poison 
to prevent criticality, regardless of the fuel enrichment, occupying a large 
relative percentage of the total core volume. At the value of (r3/r2) equal 
to 2.5, the core would not go critical with fuel enrichments of 15% but 
would go critical at fuel enrichments of 50%. When the value of (r3/r2) was 
increased to 2.75, the core would go critical at 15% with the thermal fluc 
accounting for approximately 75% of the power produced. The fuel enrichment 
of 50% was used to continue scoping the design with (r3/r2) fixed at 2.5. 


During the course of earlier investigation, the values of calculated 





Table 4.1 
CALCULATED PROPERTIES OF A 50% ENRICHED, H>0 MODERATED CFR WITH MODERATOR- 
TO-FUEL VOLUME RATIO = 2. GEOMETRICAL PROPERTIES SPECIFIED BY TABLE 2.2 
WITH V2 = 100 FI/SEC AND (r3/ro) = 2.5. 


Assumed Max Clad-Coolant Temp Diff (F°) 


Maximum/Average Power (Radial) 






Fast Flux Power/Total Power 


Thermal Poison Cross Section (cm7!) 







Total Second Pass Flow (102 lb/hr) 


Temperatures (°F) 







Average Second Pass Exit 






Maximum Second Pass Exit 


Maximum Cladding 







Maximum Fuel 


Core Length (cm) 







Core Radius (cm) 


Power Density (kw/liter) 





maxdmum cladding temperature exceeded the design constraint of 1350 °F when 


the equivalent AT lay in the region of 145 F° to 245 Ff (corresponding to 
maximum cladding temperatures between 1100 °F and 1200 °F for the uniform 
power assumption). Thus, the next iteration of calculations worked in this 
region of (r3/rg) at 2.5. The results obtained indicated that the maximum 
calculated cladding temperature was 1164 °F for the combination of parameters 
specified for a T of 245 F°, 50% enrichment and 100 ft/sec steam exit velocity. 
The principal properties for this set of calculations are shown in Table 4.1. 
The results shown in Table 4.1 do not approach the temperature constraint 
placed on either the cladding or fuel. In order to achieve a set of parameters 


that would exceed the constrained maximum cladding temperature, all dimensions 
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and properties of the previous calculation were held constant except the core 
length. Two additional parameter combinations were solved, one with the core 
length reduced by 25 cm, the second by 50 cm, of the calculated length for 

the assumed cladding-coolant temperature differential of 245 F°, The results 
of these calculations are shown in Table 4.2. By graphical interpolation of 
these results, it was determined that the cladding temperature constraint would 
be achieved if the core length —_ 111.0 em or 45.8 com less than the length 
determined for the clad-coolant temperature differential of 245 F°. 

Parameters for the BeO moderated core were also taken from Table 2.2. for 
the case of the BeO core, those dimensional properties peculiar to an assumed 
exit velocity of 300 ft/sec were investigated. As shown in the graphical 
presentation in Chapter 2 and evident from Table 2.2, the lowest value of 
(r3/r9) for which results are available for the four temperature differential 
Variables investigated is 4.0. This parameter was selected as the control 
icamoter. The principal data figures arising from this calculation are 
shown in Table 4.3. By graphical interpolation, the set corresponding to an 
assumed temperature differential of 165°F° was found to yield a maximum 
cladding temperature of 1350 °F. 

Using the interpolated results of Tables 4.2 and 4.3, a complete set of 
the properties pertinent to H20 and BeO moderated cores that yield the con- 
strained maximum cladding temperature are shown in Table 4.4, The fuel tem- 
perature was not found to be the limiting constraint in either case. 

For the results shown it is immediately apparent that the desired average 
steam exit temperature of 955 °F has not been achieved. The mean outlet tem- 
peratures are 886.7 °F for the H»0 moderated core and 916.6 °F for the Bed 
moderated core. On the other hand, the calculated outlet flow rate has ex- 
ceeded the assumed design point of 1.776 x 10%lb/hr; for the H20 moderated 


core it is 1.969 x 109 lb/hr, for the BeO moderated core 1.902 x 107lb/hr. 
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Table 4,2 


INTERPOLATION TABLE SHOWING PARAMETERS OF H20 MODERATED CFR 


Maximum/Average Power (Radial) 






Fast Flux Power/Total Power 








pay 
Total Second Pass Flow (109 lb/hr) 


Thermal Poison Cross Section (cm 










Temperatures (°F) 






Average Second Pass Exit 






Maximum Second Pass Exit 


Maximum Cladding 







Maximum Fuel 


Core Radius (cm) 






Power Density (kw/liter) 


This variance from the assumed design point has been caused by more heat 


flowing to the first pass coolant and thus causing a higher exit steam quality. 
The actual heat transfer coefficients were calculated to be higher than the 
assumed value used to generate Table 2.2, thus reducing the resistance for 
heat flow to the first pass coolant. Also, Table 2.2 was generated under 
the assumption of flat power radially across the fuel in the annular fuel 
tube; in fact, the volumetric power generation rate decreases as the inner 
radius of the fuel material is approached. Even though the results shown do 
NOt agree exactly with the initially assumed temperature design point, they 
‘ANustrate the salient features of either an Ho90 or BeO moderated CFR which 
sé; in the region of maximum power density. 

j In concluding the remarks on the selection of parameters, additional 


sOmment is warranted on the choice of assumed exit velocity and moderator- 
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Table 4.3 

INTERPOLATION TABLE SHOWING PARAMETERS OF BEO MODERATED CFR 
Beitied fax misdecasl ant Temp Dirt (F) | 145 1 (465) [ 195 | 245 | 
Maximum/Average Power (Radial) 1.433 
0.97 
0.345 
1.903 













Fast Flux Power/Total Power 





Thermal Poison Cross Section (cm™!) 






Total Second Pass Flow (402 lb/hr) 


Temperatures (°F) 







Seg 
1081.2 





Average Second Pass Exit 








Maximum Second Pass Exit 






Maximum Cladding 1310. 





Maximum Fuel 






1592. 

365.9 

97 4 
5.3 





Core Length (cm) 







Core Radius (cm) 









If 
a 
f 


Pever Density (kw/liter) 





to=-fuel volume ratio for the two moderators studied. Neutron economy studies 


Show that a core has minimum leakage for a given volume when the length-to- 





a ameter ratio is in the vicinity of unity. Inspection of Table 2.2 shows 


that the calculated core lengths generally increase as the second pass exit 





Velocity increases. Small core height is peculiar to low velocities. In 
order to make the core L/D ratio approach unity for low velocities, ‘the H20 
' 


moderator was used. At the higher velocity, the BeO moderator was used. In 







the case of the HoO0 moderated reactor, the calculated L/D ratio for the core 
ts 0.918 with the moderator/fuel volume ratio of 2. For the BeO moderated 


Peactor,, the calculated L/D ratio is 1.63; to make the L/D ratio equal unity, 


Which would consequently require new cross section data to account for the 


26 in neutron spectrun. 
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Table 4,4 


CHARACTERISTICS OF A 57.4% MW, COUNTER FLOW REACTOR 





MODERATOR 
H20 Bed 

Core Dimensional Parameters 
Diameter D (inches) | 49,5 76.9 
Length L (inches) 43.6 125.6 
Composition (Volume $) 

Moderator 51.9 85.4 

Fuel 25.6 8.82 

Cladding 8.5 1.08 

First Pass Coolant 11.0 411 

Second Pass Coolant 356 0.45 
Cell Dimensional Parameters (cm) 
Radius of Second Pass Flow Channel rj 0.332 0.388 
Outer Radius of Inner Fuel Cladding Annulus ro 0.383 0.439 
Outer Radius of Fuel Annulus r3 0.958 1.756 
Outer Radius of Outer Fuel Cladding Annulus ry 1.008 1.807 
Outer Radius of First Pass Coolant Annulus ro 1.165 2.158 
Outer Radius of Moderator Cladding Annulus ré 1.216 2.209 
Equivalent Radius of Cell Assembly ra 1730 5.810 
Lattice Pitch 3.080 10.31 
Fuel Element Parameters 
Fuel U0. Us 
Enrichment (%) 50 50 
Cladding (All Regions) Inconel Inconel 
Number of Fuel Elements 1198 282 
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Table 4.4 (Continued) 


Temperature (°F) 
Fuel Maximum 


Cladding Maximum 


Heat Transfer Data ~- First Pass Flow 


Coolant 

Flow (10° 1b/nr) 

Inlet Temperature (°F) 
Inlet Enthalpy (Btu/1b) 
Outlet Temperature (°F) 
Outlet Enthalpy (Btu/1b) 
Outlet Steam Quality (%) 
Inlet Pressure (psia) 
Channel Pressure Drop (psi) 
Restrictor Pressure Drop (psi) 
Restrictor Area Ratio 

Inlet Velocity (ft/sec) 
Heat Transfer Surface (ft) 


| Average Heat Flux (Btu/hr/ft*) 


| Heat Transfer Data - Second Pass Flow 





| Coolant 

Flow (102 lb/hr) 

inlet Temperature (°F) 
Inlet Enthalpy (Btu/1b) 
Outlet Temperature (°F) 


Outlet Enthalpy (Btu/1b) 
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MODERATOR 
H20 Bed 
1590 1682 
1350 1350 
H20 H20 
14275 1.776 
520 520 
511.9 511.9 
52786 BY AO 
595.7 593.6 
11.09 10.71 
880.0 880.0 
10.6 4 tla 
567 5-7 
On2) 0.25 
feo’ tas 
901 1097 
165000 132200 
H20 H20 
1.969 1.902 
527.8 527.7 
1196.4 1196.4 
886.7 916.6 
1445.9 1466.4 





Table 4.4 (Continued ) 


MODERA TOR 

H20, BeQ 
Outlet Degree Superheat (F°) | 360.1 405.9 
Inlet Pressure (psia) 869.4 868.3 
Channel Pressure Drop (psi) 9.4 11992 
Restrictor Area Ratio 1.0 160 
Outlet Velocity (ft/sec) 109 389 
Heat Transfer Surface (ft*) 297 236 
Average Heat Flux (Btu/hr/ft*) 165000 218000 





4.3 Graphical Presentation of Property Variation 

Figures 4.5 through 4.13 show the variation of different properties with 
an H20 or BeO moderated core. The set of parameters defined in Table 4.4 
arose from interpolation of the properties shown in Tables 4.2 and 4.3. The 
data given in Figures 4.5 through 4.13 is not that of Table 4.4 but results 
from performing the following calculations on the core configuration headed 
by a core length of 131.8 cm in Table 4,2 for the H20 moderated core and by 
195 F° in Table 4.3 for the BeO moderated core. 

Figure 4.5 shows the variation of power radially across the reactors. 
Both curves have been plotted through a plane running at mid-height through 
the reactor (one-dimensional) with a buckling calculated for leakage in the 
axial direction. The amount of power peaking at the edge of the BeO modera- 
ted reactor is indiscernible - the reactor produces 97% of its power with 
neutrons having an energy above 1.85 ev; the radial reflector is a 15 cm 
thickness of BeO. 

Figures 4.6 through 4.13 show the linear power, cladding temperature, 
coolant temperature and coolant enthalpy distributions for the H20 and Bed 
moderated cores. The abcissa for these plots has been normalized to the 
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Figure 4.8 
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core length. For each of the figures, two curves are shown = one for "Radial 
Region 1", the other for "Radial Region 6", "Radial Region 1" is the right 
ciroular cylinder at the center of the core extending the height of the core 
and defined by radii of 10.1 cm and 16.4 em for the H2O0 and BeO moderated 
cores, respectively. "Radial Region 6" is the right annular cylinder extending 
the height of the core, being defined by radii of (50.5 cm, 60.2 em) and (82.0 
em, 98.2 cm) for the H20 and BeO moderated cores, respectively. The proper- 
ties defined for the two curves are the properties related to a fuel element 
producing heat at the average rate of all fuel elements within that particular 
radial region. 
4.4 Remarks on Flow Stability 

Flow through the core, either for first or second pass flow, is through 
a group of channels connecting two plenums. Since the channels all begin 
at the same point and end at the same point, the pressure drop between plenums 
must be the same, regardless of which individual flow channel is followed be- 
tween plenums. Since heat is added to the coolant as it transits the core, 
the density change of the coolant influences the pressure drop along the 
channel, the density change being a function of the coolant flow rate and 
the heat input. Radial flow stability across the core is the subject of 
Appendix E, but a brief summary of the points made there and comments on the 
calculated values for the two configurations presented in Table 4.4 will be 
made. | 

As a first step in the discussion, consider the values determined for 
the two reactors for first pass flow. In the case of the H20 moderated core, 
the total calculated first pass drop was 10.6 psi with 5.7 psi (or 53.8% of 
the total drop) occurring at the inlet. For the BeO reactor, the total drop 
Was 11.7 psi with 5.7 psi (or 48.8% of the total drop) occurring at the inlet. 


Yor both reactors, the inlet velocity was 7.5 ft/sec and the throat area 
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ratio was 0.25, giving a nominal 30 ft/sec velocity through the throat. 

Since boiling takes place in the first pass flow channels, flow insta- 
bility would be present if no means were used to add a pressure drop inde- 
pendent of the friction and momentum change within the channel causing the 
intrinsic channel pressure drop. Because of the momentum change within the 
boiling channel, the curve of pressure drop vs flow rate (at constant total 
heat input) has a negative slope. Thus, if due to some circumstance, the 
flow in a boiling channel was reduced, the pressure drop across the channel 
would rise and the flow would be further reduced. Similarly, if the pressure 
drop across the channel was increased, the flow would decrease. 

To avoid this possibility, a nozzle or restrictor has been installed at 
the entrance to each flow channel. The characteristics of such a device are 
that the slope of a curve of pressure drop vs flow rate through it is always 
positive. When the curve of pressure drop vs flow rate for this external de- 
vice is added to the curve of pressure drop vs flow rate for the heated chan- 
nel, the desired result is a cruve that has a positive slope over the antici- 
pated operating conditions (flow rate and heat input) of the channel. 

The data presented in Table 4.3 was derived by graphical interpolation 
or results calculated for reactors of different physical configuration. The 
calculated results in all cases showed a maximum variance of 0.1 psi for 
total pressure drop between inlet and mixing plenum for first pass flow chan- 
nels across the core when the total first pass flow was equally divided among 
the different channels. Within the convergence limits specified during nu- 
merical solution of the problen, nie variance was considered to be acceptable 
(0.4 in 10.6 psi for the Ho0 moderated reactor, 0.1 in 11.7 psi for the Bed 
moderated reactor, in both cases less than 1% variance). During the course 
of scoping the design, larger variances were encountered for some parameter 


combinations and the flow rate through individual channels had to be varied 
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to achieve the same pressure drop between plenums, regardless of which flow 
channel was selected for performing the calculations, 
4,5 Reactor Control and Criticality 

The schematic representations of Figures 4.1 and 4.2 indicate control 
rods entering the core from the bottom. In the case of the boiling water 
reactor design, coolant rods normally enter from the bottom of the core since 
the power distribution is skewed toward the bottom of the core because of the 
coolant moderator density distribution and its coupling to the power distri- 
bution through axial variation in moderating properties. 

The preferred direction of control rod insertion would be downward. If 
the mechanical, paseeeiear' or hydraulic mechanisms for inserting control rods 
fail, the force of gravity would seat the rods inside the core providing that 
the rods are not bound by the failed mechanism. If insertion is in an upwards 
direction, as required for the CFR application, compressed springs or some 
other form of safety device must be relied upon to store sufficient potential 
mechanical energy to seat and hold the rods against gravity in the event of a 
power failure to the control rod drive mechanisn. 

Aside from the advantage of using rather than overcoming gravity for 
the insertion of control rods, a shipboard reactor installation should be 
designed for minimum distance above the hull base line. This is due to the 
decrease in metacentric radius that occurs as the center of gravity of the 
Ship is raised. The controlling criterion in this case would be athwartship 
Stability. 

Power peaking occurs at the bottom of the core of both the H20 and Bed 
moderated reactors, as shown in Figures 4.6 and 4.7. For the H20 moderated 
reactor, the ratio of maximum-to-average axial power is 1.48 and 2.18 for 
radial regions 1 and 6, respectively. For the BeO moderated reactor of | 


Figure 4.7, the ratio of maximum-to-average axial power is 1.37 and 2.26 for 
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radial regions 1 and 6, respectively. 

Insertion of the control rods from the top would tend to additionally 
skew the power distribution toward the bottom. The metallurgical constraint 
limiting the design of the reactor is at the bottom of the core, where the 
highest second pass coolant temperatures are reached. Thus, with control 
rods partially inserted from the top during full power operation, the addi- 
tional skewing of the power distribution would cause the metallurgical con- 
straint to be exceeded and the reactor could not in fact be operated at full 
power. Because of this, it is necessary to design for control rod entry from 
the bottom, thus reducing the axial power peaking but with the attendant 
problems associated with rod drive eee foundations to elevate the 
reactor assembly and the subsequent reduction in metacentric radius. 

Both of the reactor configurations discussed in Section 4.2 are described 
as "fast", since over half of the power is produced in the "fast" group of 
the twoegroup calculation. At the time that the cross-sectional data was 
determined for these two configurations (Table 4.5), the cut-off energy of 
the: fast group was set it, WAS) ‘ev, the lower limit of the data for the GAM-1 
program. (Note that ene "fast" cross sections in Table 4.5 do not reflect 
the N-2N reaction for beryllium; no provision is made for this in the GAM=1 
program data.) The lower energy limit of the "fast" group is only 75 times 
that of a "thermal" neutron at 20 °C, so to avoid misinterpretation it should 
be remembered that "fast" as used here refers to the spectrum extending down 
to 1.85 ev, possibly more appropriately described as the "faster" group as 
Opposed to the "slower" group. 

As mentioned in Section 4.2, the enrichment required to just reach crit- 
icality with no poison in the H20 moderated core lies between 15% and 50%; 
for the core with (r3/r2) = 2.75, an enrichment of 15% yielded criticality 


and also a fast/total flux power ratio of 25%. No analysis was made to 
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Table 4.5 


INPUT NUCLEAR PROPERTIES OF CELL REGIONS BEFORE HOMOGENIZATION 


Cladding 


Absorption Cross Section (em™!) {0.003449 |0.1853 | 0.00266 






Diffusion Coefficient (cm) 0.452 0.373 

Transfer Cross Section (em™') = |0.001161 0.0001778 
Fuel 

Nu x Fission Cross Section (om™!) 0.236 3 0.199 

Nu 2.447 

Absorption Cross Section (om™!) 0.1338 

Diffusion Coefficient (cm) 0.5782 

Transfer Cross Section (em™!) 0.0000979 
Moderator 


Absorption Cross Section (om™!) [0.0003104] 0.008121 0.00001438] 0.0005215 
Diffusion Coefficient (cm) 0.518 0.5734 0.491 
Transfer Coefficient (cm™!) 0.02881 0.000491 

Coolant 
Absorption Cross Section (barns) |0.008224 |0.3173 |0.00002402 
Transport Cross Section (barns) 30.66 


Transfer Cross Section (barns) 0.333 


determine the minimum enrichment necessary to reach criticality and its asso- 
Clated power split between the two flux groups. It would appear that the core 
enrichment could be lowered from 50% and the power split reduced to less than 
half, if this is desired. 


The BeO moderated core has no supporting data to indicate that it can 
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readily produce more than half its power in the thermal group. In the present 
configuration described in Table 4.4, the ratio of moderator-to-fuel atoms is 
approximately thirty. When the calculations were performed on a core with 
approximately ten times this amount of moderation using cross sections cor- 
rected to reflect the shift in spectrum, the fast group still accounted for 
approximately 85% of the total power produced. 

The data presented in Table 4.4 for the required microscopic poison 
cross section to achieve an eigen value of unity (criticality) represents the 
amount of poison that would have to be spread uniformly throughout the core. 
The one-dimensional calculation which solves for the radial power distribution 
and poison cross section . for criticality uses as input the homogenized cell 
properties for the radial region defined in the axial plane at core mid-height. 
As such it does not indicate any detailed knowledge regarding radial placement 
of control rods, depth of insertion, local flux distortion due to control rod 
presence, etc. The purpose of the calculation has been to indicate only that 
both of the core configurations presented in Table 4.4 will sustain a chain 
reaction. 

Figures 4.6 and 4.7, graphical representations of the axial variation of 
power density in the annular fuel rods, and the power split between the two 
neutron spectrum groups, Table 4.4, show that the two configurations discussed 
are undermoderated. This fact can be used to suggest a means of controlling 
the power level in the reactor without resorting to the continual adjustment 
of control rods. The water and steam flowing through the first pass coolant 
channels can be considered to come from two distinct sources - feedwater and 
recirculation water. For discussion purposes, the feedwater alone absorbs 
heat, the recirculation water flowing through the core at constant tempera- 
ture and enthalpy. 


In the design condition at 100% power, the feed-recirculation water 
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mixture exits from the first pass channels with an average 10% steam quality 
or with the steam occupying approximately 62% of the cross sectional channel 
area (the void fraction). If the recirculation flow rate is increased, the 
density of the first pass inlet mixture would decrease, since the recircula- 
tion water is at a higher temperature and lower density than the feedwater. 
But the steam exit quality and void fraction would decrease, resulting in a 
higher exit density. (As the recirculation rate is increased, holding the 
feedwater rate and power level constant, the point in the channel at which 
boiling occurs is pushed upwards in the channel.) The overall effect is to 
increase the density of coolant in the channel. Since the reactor is under- 
moderated, the power level in the reactor would rise. This same effect would 
be present at other points of operation. Thus, the power level in the reactor 
can be partially controlled by varying the recirculation rate. 

Variation of the feedwater flow rate will also produce the same effect. 
if the feedwater flow rate is increased, holding the control rod settings and 
recirculation flow rate constant, the average density in the first pass coolant 
channel will increase, increasing the moderation in the reactor and conse- 
quently causing the power level to increase. A reduction in the feedwater 
flow rate.at constant control rod setting and recirculation rate will cause 
the point at which boiling first occurs in the channel to move toward the bot- 
tom of the core, resulting in a higher exit steam quality and void fraction, 
decreasing the moderation in the reactor and hence causing the power level 
to decrease. For the case of the H20 moderated CFR, Mgure 4.1, some heat is 
transferred to the feedwater in the moderator region through the outer clad- 
ding Surrounding the first pass coolant channel. At the design condition for 
full power operation, the feedwater in the moderator region enters the first 
Pass inlet plenum in the subcooled state, no boiling occurring in the modera- 


tor region. When the feedwater flow rate is increased, the temperature rise 
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in the moderator region is lowered, thus increasing the average moderator 
density and contributing to a subsequent rise in power level. 
4.6 Flow When Second Pass Coolant Channel Is Blocked 

One of the accidents which may occur to any reactor is the blockage of 
a coolant channel. For the concept of the CFR, this question is of concern 
since each fuel element has two distinctly defined coolant channels. Studies 
were made of the consequences of such an event occurring to the second pass 
coolant channel. It is readily apparent that blockage of a first pass chane- 
nel will yield much higher calculated fuel or cladding temperatures in the 
associated fuel tube. It would also appear that the possibility of complete 
blockage of a first pass channel is less likely because of the annular shape 
of the channel. | 

Comparison of the radial power distribution across the core when all the 
second pass coolant channels defined by "Radial Region 1" are blocked with 
the curves of Figure 4.5 for all open flow showed almost no variance. The 
second pass coolant under normal operating conditions occupies a small per- 
centage of the total volume of the core; additionally, it is of low average 
density, thus not having a strong influence on the power distribution. For 
the configurations studied, the neutron spectrum is above thermal which also 
tends to mitigate the effect of local property variation. 

The calculated maximum cladding and fuel temperatures for the two con- 
figurations... described in Table 4,4 with no flow through the second pass chan-e 
hels of "Radial Region 1" are as follows: 


Moderator 
Temperature (°F) HO Bed 
Maximum First Pass Cladding 570.3 563.9 
Maximum Fuel > 5427, 9492, 
Maximum Second Pass Cladding 5427. 9492, 
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These calculations show that the core cannot withstand this type of 
avent without damage to the fuel and the inner fuel cladding. The design 
constraint on maximum fuel temperature is 4500°F. The results quoted are 
for the steady state case and do not incorporate any provision for tempera- 
ture peaking as the temperature profile goes from that of the open flow, 
both channels, to that of blocked flow, second :pass channel. 

The second pass channel radius (Table 4.4) is 0.332 cm for the H20 mod- 
erated core and 0.388 cm for the BeO moderated core. It is not possible to 
predict the mechanism which would have to occur to cause a blockage of these 
channels. The most likely place for such a blockage to occur would be in the 
upper steam plenum (Figures 4.1 and 4.2) by which a piece of rust or scale 
from the pressure vessel heat became lodged over the entrance to the channel. 
No restrictor is present at the entrance to the second pass channels and no 
protuberances exist in the channel between the upper steam plenum and the 
lower second pass exhaust plenwm so that if any type of particulate matter did 
reach the second pass side, one would expect it to be swept through to the 
lower steam exhaust plenum. It is anticipated that any particulate carry- 
over from the first pass mixing plenum to the upper steam plenum would be 
negligible since it would have to transit both the steam-water interface in 
the upper mixing plenum and the steam separators. 

One possible mechanism to cause blockage would be the collapse of the 
second pass coolant-cladding material. The mechanism of failure would be 
brought about by rupture of the cladding material due to swelling of the fuel. 
Approximate burn-up calculations indicate that the core life would be limited 
not be reactivity considerations but by the effects of swelling. Swelling 
Occurs in U0> at about 60,000 to 80,000 MWD/T; burn-up calculations indicate 
that the reactivity lifetime of the two core confirurations may be as much 


a5 an order of magnitude greater. During the early core life, the coolant 
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pressure on both sides of the annular fuel element tends to push the cladding 
firmly against the fuel material. As more fuel is expended, fission gas will 
eventually cause the fuel material to swell, pushing against the cladding 
materials and tending to force them out into their respective coolant chan- 
nels against the restraining action of the coolant pressures. Eventually the 
cladding materials would be ruptured. One would expect that the first clad- 
ding material to fail under this action would be that for the second pass chan- 
nel since it is subjected to compressive stresses and possible buckling. At 
this point, the question of second pass coolant blockage and the temperature 
excursion beyond the Seeder constraints become somewhat academic. Rupture of 
the cladding would release radioactive material into the coolant channel. 
4,7 Reactor Start-Up 

The procedure for start-up of the CFR requires that a detailed knowledge 
of the transient behavior, including both nuclear and temperature, be avail- 
able. As stated in Chapter 1, the development and especially the application 
of the mathematics necessary to provide such detailed knowledge is beyond the 
scope of this study. Nevertheless, it is possible to determine roughly how 
much time will be expended to bring the reactor from zero power at ambient 
temperature to full power at operating conditions by making simplifying 
assumptions. : 

During start-up, the recirculating pumps will be used to assure flow 
through the first pass channels of the core. The ambient fenporetare of all 
components will be assumed to be 70°F, Using the condition that only first 
pass cooling is available, it can be shown that the maximum power that can 
de used, einiet reactor temperature is 520°F, to give a maximum second 
Pass cladding and fuel temperature of 1250°F is 14.9% for the Hj0 moderated 
reactor and 8.15% for the BeO moderated reactor of full power in the steady 


State condition. Based on the heat capacity, mass and change in energy of the 
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various constituents involved, the times involved to heat to the condition of 
1250 °F maximum fuel ‘temperature are 9.3 minutes and 1.1 hours for the H90 and 
Bed moderated reactors, respectively. It has been assumed that first pass 
coolant is being circulated through the core at full flow, after circulation 
has been started control rods are withdrawn to a position yielding 10% of 
design power, and that during the time the coolant temperature is increasing 
the cladding and fuel temperatures do not exceed the final steady state 
values. No saturated steam is generated during this step. 

Because of the larger mass of fuel, radial thickness of the fuel material 
annulus and the low thermal conductivity of the fuel, the BeO moderated CFR 
configuration will not be discussed further. The comparison of times in the 
initial heateup phase shows that this configuration takes significantly longer. 

After the initial heat-up phase is completed, power is held at the point 
of 20% of design — The system is closed until such time as saturated 
steam is produced, then this steam passes up through the steam separators to 
the dry steam plenum and back down through the core for second pass heating. 
Initially, no cooling is present on the second pass side of the annular fuel 
elements. After second pass steam enters the core, some cooling commences. 
Upon first entry of second pass steam, the heat transfer coefficient between 
the second pass steam and the inner fuel cladding is low because of the low 
Mass flux. The temperature of the second pass cladding remains high, which 
tends to keep more of the heat flowing to the first pass coolant, producing 
more saturated steam. An equilibrium will be reached at which the flow rate 
has not changed but the reactor is now producing about 2% saturated steam on 
the first pass side, which means that about 20% of the design second pass 
flow has been achieved but not the design exit temperature. 

Power can now be increased gradually from 20% of the design value to full 


power over about a 20 minute period, which corresponds to an increase in 


85 





reactor power of about 8.8 x 10° Btu/hr per minute. If a lumped parameter 
transient model is assumed to describe the temperature behavior, all roots 
are negative and have values ranging from 1.2/hr to 3/4 x 102/hr for the as- 
sumed ramp-type power rise. In determining some of the characteristic param= 
eters for transient behavior, it was assumed that heat transfer coefficients 
were constant with time and that second pass flow was initially at its full 
design value when this power increase was applied. This latter assumption is 
necessary in order to achieve a manual solution without resorting to a compu- 
ter aided numerical approach; the difficulty which prompts this assumption is 
the condition of second pass flow rate and temperature when the system of dif- 
ferential equations is transformed during the solution process. If the second 
pass flow had been variable in this analysis, another root would have been 
added; the addition of this root would change the complexion of the solution. 
Without going through a detailed analysis, it is not possible to determine if 
the resultant solution would be stable or unstable. 

This simplified approach indicates that a time of 30 minutes to an hour 
May be required to get the reactor on the line at full power. If a more de- 
tailed model were developed, the time required could be explored more exactly 
and procedural steps for start-up could be varied to obtain the shortest 


Start-up time, staying within the constraints of metallurgical limitations 
and stability. 
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Chapter 5 
REMARKS ON DIRECT CYCLE SHIELDING AND CONTAINMENT 
oe 1 Limitations 

The utilization of a direct cycle nuclear power plant (in contrast to an 
indirect cycle plant) imposes certain constraints on the arrangement of the 
plant. These limitations will determine to a large extent whether the direct 
cycle concept can be applied to a marine power plant, in which they are rela- 
tively more severe because of the mobility of the plant and hence the increased 
probability of damage to the plant. 

When locating the machinery space within ‘the ship, the number of alter- 
native choices is reduced from that of the indirect cycle plant. This is 
caused by the recommended requirement that the containment vessel-be located 
a minimum distance inboard of the hull equal to one-fifth the beam measured 
at right angles to the centerline at the level of the deep load oe Addi- 
tionally, side shielding must be provided and a cofferdam is necessary to re- 
strict the effects of a possible explosion. Meeting these plus any specific 
arrangement requirements peculiar to the ship fixes the location of the ma- 
chinery space within a limited section of the ship's length. 

In contrast to the indirect cycle plant in which the reactor coolant 
never enters the machinery space, the direct cycle concept necessarily requires 
that the turbomachinery be automated or incorporate provisions for remote 
control. For a water cooled reactor, the water becomes radioactive and decays 
with the emission of a fast neutron or gamma ray. Accessibility to the direct 
cycle machinery space must be restricted during plant operations to limit 
exposure to these distributed sources of radioactivity. 

In addition to the requirement that side shielding be provided, shielding 
must also be provided to limit the exposure to which all personnel aboard the 


ship would be subjected. This would at first imply that shielding must be 
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provided all around the machinery space. For an indirect cycle cp the 
length on the ship's hull would be smaller since only the compartment housing 
the reactor, main coolant pumps or blowers, the heat exchanger through which 
power is transferred, etc., would have to be shielded. The spatial distribu- 
tion of the reactor coolant in the direct cycle plant not only includes those 
components noted above, but also all turbomachinery in the machinery space 
through which the coolant flows. 

The remainder of this chapter will be devoted to the estimation of secon- 
dary shield weights required and comments on contaiment provisions. The 
fact that the weights calculated are only estimates must be stressed. A de- 
tailed determination of the shield configuration, containment techniques, and 
coolision protection system would require a comprehensive analysis that is 
beyond the scope of this study. The results obtained here do, however, lead 
to some general conclusions of significance. 

5.2 Distributed Radioactivity 

Pure water becomes radioactive when subjected to neutron irradiation, as 
previously mentioned. This activation primarily results from the activation 
of the different oxygen isotopes present. A small additional source of activi- 
ty is produced by neutron capture of hydrogen, but this is so small that it can 
be neglected in comparison with that from oxygen activation. Oxygen activa- 
tion results in a 1 Mev neutron and two gamma rays at 1.1 Mev and 5.3 Mev. In 
a Water-cooled direct cycle plant, this source of activity is distributed 
through the machinery space. 

If a cladding failure occurs within the core, the coolant acts as the 
vehicle for transporting fission fragments outside the reactor shield. The 
fission fragments that would escape from the reactor would be in the form of 
soluble or insoluble gasses or solid particles. The attendant problem they 


would cause would be due to the increased isotopic radioactive half-lives 
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present in the machinery space after plant shutdown. Operational experience 
with a direct cycle boiling water reactor indicated that a serious problem 
did not result when the fuel cladding failed. The inorelies in radiation 
level at the turbine which resulted from deposition of fission fragments on 
the blading was comparable to that from a radium dial sail” 

The phase segregation taking place in the upper mixing plenum of the CFR 
as the first pass coolant leaves the core in the saturated state is identical 
with that in ‘the boiling water reactor. The liquid vapor interface has been 
demonstrated to be extremely effective in preventing the further transfer of 
non-volatile fission fragments. Fragments introduced through a cladding rup- 
ture on the first pass coolant side of the fuel tube will be largely confined 
to the small flow loop defined by the reactor and recirculation line. On the 
second pass side (inside the annular fuel tube of the CFR), the all vapor 
mixture can be expected to carry solid particles introduced into this stream 
Outside the reactor. These will be deposited at various positions along the 
flow loop. The maintenance of cladding integrity on the second pass side of 
the fuel tube thus imposes more stringent design criteria than that for the 
first pass side. 

203 _ Estimation of Secondary Shield Weight 

An accurate evaluation of the radioactivity level caused by coolant decay 
within the machinery space but outside the reactor requires specific knowledge 
of the machinery and piping arrangements and the cycle conditions. Without 
this knowledge, it is possible only to make an order-of-magnitude estimate 
of the required secondary shield weight. 

The first step in determining this estimate is to calculate the number 
of coolant atoms which are decaying outside the reactor, A simplified model 
has been postulated (Appendix F) to determine this rate. The basic assump- 
tions of the model are that the flux throughout the reactor is flat and that 
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the time a coolant atom spends within any given section of the flow loop 

is proportional to the mass of coolant within that section of the flow loop. 
Te- results of applying this model to a 50% enriched UO> CFR core, modera- 
ted with either water or BeO, are shown in Table 5.1, the volume ratio of 
moderator-to-fuel for the water moderated core taken as 2.0 and for the Be0 
moderated core as 10.0. 

To apply the results of Table 5.1 in estimating the required secondary 
plant shield weight, assumptions must be made regarding the size and arrange- 
ment of the machinery space and the dose rate allowable outside the machinery 
space. 

First, it will be assumed that the machinery space is 75' in length, 

30' in heighth and 35' in breadth. Within this rectangular solid, all compo- 
nents through which: radioactive coolant flows are located. Surrounding this 
space on all sides, except the bottom, a uniform layer of secondary shielding 
material will be placed. The incident flux of radiation, either gamma rays 


or neutrons, is assumed to be normally and uniformly incident over the 





Table 5.1 


ESTIMATED ISOTOPIC RADIOACTIVITY DECAY RATES 


Number of Fissions/MWy = 3.0 x 1016 Reactor Power = 60.0 MWt 
Moderator 

H20 Bed 
Coolant Cycle Time/Reactor Transit Time 200 200 
Reactor Coolant Mass/Fuel Mass 0.213 0.1847 
Reactor Transit Time, Seconds 3641 3.82 
1.1 Mev Gammas/Second from 018 5.80 x 1010 4.44 x 1011 
5.3 Mev Ganmas/Second from 016 1.239 x 1012 8.92 x 1014 
1.0 Mev Neutrons/Second from 0'7 1.429 x 108 7.92 x 108 
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different sides of the machinery space. 

These assumptions then preclude the presence of local "hot" spots within 
the space. In the case of fast neutrons, it will be relatively correct. Where 
large volumes of feedwater or condensate occur, the very fact that they do ex- 
ist means that self-shielding takes place. In the case of water at standard 
conditions, the mean free path for removal of fast neutrons is approximately 
two inches. As a first approximation, it can be said that all neutrons born 
within two mean free paths of the boundary of the volume escape but all those 
originating within this circumferential thickness are trapped within the vol- 
ume and do not escape. 

"Hot" spots will occur due to gamma radiation. Whereas fast neutron 
energy is reduced to thermal values primarily by elastic collisions with the 
nuclei of the material they are transiting, gamma rays are attenuated by inter- 
action with the orbital electrons of the material, Fast neutrons originate 
in a medium which exerts a strong influence on their subsequent behavior. 
Gamma rays are born in an environment which exerts relatively little influence 
on their physical behavior within this medium. Thus, where large volumes of 
feedwater or condensate occur, these volumes produce "gamma hot spots". The 
structural metal of the different components, although possessing a high elec- 
tron density for gamma interaction, will not generally be thick enough to 
appreciably affect the local gamma fluxes which originate within their bound- 
aries. Thus, a discrete pattern of areas on the secondary shield bulkheads 
will be present, caused by gamma rays. The assumption of a uniform incident 
gamma ray flux on the shield bulkheads allows only a rough estimate of the 
total shield weight. 

The biological limit of exposure to a flux of 1 Mev neutrons is fixed at 
60 neutrons/cm@/sec based on a We-hour week, For a ship at sea, the movement 


of personnel onboard is limited, ‘The allowable flux level at the outside of 
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the secondary shield has been set a one-third the value faund by converting 
from a We-hour week to a 168-hour week, i.e., 4.76 neutrons/em“/sec. 

In calculating the requisite shield thickness for gamma radiation, it 
has been assumed that the allowable dose rate at the outer shield boundary 
will be 100 mrad /week. Again, this level is predicated on a man being contin- 
uously present at the shield boundary. Since this assumption is highly re- 
mote, it tends to make the shielding thickness conservative. It is anticipa- 
ted that the total shield weight found by these assumptions will be greater 
than that which would result from a detailed analysis which considers both 
gamma "hot" spots and a more realistic appraisal of the exposure time outside 
the shielded space. 

Taking the gamma decay rates resulting from the transmutation of 016 
and 018 Table 5.1 shows that the rate from 016 is approximately two orders 
of magnitude greater than that from 018, Also, the harder 5.3 Mev gamma from 
916 is more difficult to shield against than the 1.1 Mev gamma from 018, 
Therefore, the contribution of gammas from 018 to the gamma shield weight 
has been neglected with small resultant inaccuracy in the estimated shield 
weight. 

The results of applying the data generated in Table 5.1 and the assump- 
tions delineated above regarding distribution on the shield and allowable 
exposure rates are shown in Table sey Comparison of the estimated weight 
shown for secondary shielding against neutrons and .5.3 Mev gammas shows that 
the major input to the required shield weight arises as a result of the 
5-3 Mev gamma rays. 

The gamma shield weight estimates point up the fact that the utilization 
of a separate and distinct gamma shield is not practical. This severely 
limits the possible ship types which could incorporate a direct cycle water- 


cooled nuclear plant. Because of the volume and weight required for a water 
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ESTIMATED SECONDARY SHIELD PARAMETERS 


Compartment Length 75' © 
Moderator 


Shield Material 


1.0 Mev Neutrons from ol? . 


Thickness (inches) 
Volume (ft?) 


Weight (long tons) 


5.3 Mev Gammas from 916 


Thickness (inches) 
Volume (ft?) 


Weight (long tons) 


Table 5. 


Width 35! 
H20 
Water Lead 
1.5 
1153 
G2a4 
100 CPs: 
76900 3940 
2180 1264 


2 


Height 30! 


Bed 


Water Lead 


Sle 
4305 
122.2 


138 7209 
106100 5440 
3010 1748 





blanket or the weight for a lead blanket, the utilization of a non-revenite 


producing material as the secondary shielding agent appears impractical. 


5.4 Cargo Shielding 


One solution to the problem of how to provide a direct cycle nuclear 


plant with the requisite gamma shield is to consider the use of the cargo 


itself as the shielding agent. 


particularly in the study of direct cycle plants using boiling water reactors. 


This method has been described previously, 


The requirement that the shield must provide a continuous belt around 


the machinery space limits the type of ship in which a direct cycle plant 


can be fitted to tankers. 


provides is roughly proportional to the weight of the material per unit sur- 


face area between the radioactive source and the point being shielded. A 


tanker appears to be satisfactory since, if it is empty and must proceed to a 


different port to load cargo, the empty tanks can be filled with ballast sea 


Water for the trip and the required shielding achieved to permit operation 
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The amount of shielding protection that any material 


Table 5 ‘ 3 


COMPARISON OF DIRECT AND INDIRECT CYCLE SHIP WEIGHTS 


Power Plant * Conven- PWR BWR BWR BWR 
tional SAVANNAH Natural Natural Forced 
Steam Type Circ. Cire’: Circ. 
Cycle Direct Indirect Direct Direct - Direct 
Containment Primary Primary Mach'y Primary 
Space 
Light Ship Wt: 
Steel 6430 6555 6620 6650 6620 
Outfit 1360 1320 1290 1290 1290 
Machinery 970 955 720 720 720 
Reactor Plant 480 170 170 170 
Containment 200 170 (a) 170 
Shielding: Primary 110 850 850 850 
Secondary 1830 (b) (b) (bd) 
Total 8760 ~~ 11400 9820 9680 9820 
Deadweight: 
Cargo 19580 19080 20660 20800 20660 
Fuel Oil 2460 320 320 320 320 
Stores, Effects, 600 600 600 600 600 
Crew, Misc. 
Total 22640 20000 21580 21720 21580 
% Gain Cargo Base ~2.5 5.5 6.2 505 
(a) Included with structural steel, (b) Included in deadweight. 





of the machinery plant. 

When considering the different ramifications of cargo shielding, the 
possible activation of the cargo must be brought up. The weights estimated 
for the required fast neutron shield are not too large to be prohibitive, in- 
deed with the conservative assumptions made for their determination it is 
expected that they would be high. They indicate that it is possible to pro- 
Vide a fast neutron shield which can protect the cargo against activiation. 

Table 5.3 is taken from a study that considered the use of boiling water 
reactors as the power source for a marine plant. The deadweights of the 
direct cycle plant compare favorably with both the conventional oil-fired ship 
and the SAVANNAH type nuclear ship. The shield arrangement used did not pro- 


Vide for overhead shielding of the machinery space. Consequently, the deck 


he 





ne 


area over the machinery space also has limited accessibility. If the same 
philosophy is applied to the weights estimated in Table 5.2, their values can 
be reduced by approximately 30%. 

A sectional view through the machinery space showing the arrangement 
of the shielding tanks is illustrated in Figure 5.1. This arrangement re- 
flects the philosophy used to generate the data given in Table 5.3 for the 
direct cyole boiling water plants amd shows that only wing tanks are present 
to provide shielding abeam of the space with no protection provided above 
the space. 

The question of the possible collision at sea in which the cargo shield 
tanks might be holed is valid. To avoid the immobilization of the ship at 
sea after such an occurrence, the plant must be provided with an amwcdliary 
non-nuclear power source. The inclusion of a diesel engine to act as an 
emergency power source is not unrealistic. Normal design philosophy for any 
marine plant is to provide some alternate means of take-home power in the 
event of an equipment failure precluding operation of the normal propulsion 
plant. For the nuclear plant, the loss of secondary shielding can be con- 
Sidered to be such a failure. From this standpoint, wing tanks to provide 
Secondary shielding are feasible. If the reactor pressure vessel is not 
ruptured, the primary shield encompassing the reactor will furnish the neces- 
Sary protection against core activity. 

2-5 Containment and Collision Protection 

To prevent the free egress of fission products from the nuclear fuel to 

the atmosphere, three barriers placed in series have to be overcome. The 


flow diagram indicating how these barriers would be penetrated is shown: 


Fission Cladding Piping or Containment Fission Products 
Products <=> Failure => Equipment —>Vessel -——Jin the 
in the Fuel Rupture Rupture Atmosphere 


Cladding has been provided around the fuel already. "Piping or Equipment 
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CARGO OIL TANKS 


CROSS SECTION OF SHIP THROUGH THE MACHINERY SPACE 


Figure 5.1 
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Rupture" is meant to indicate either a rupture of reactor pressure vessel, a 
break in the piping system or a rupture of one of the turbomachinery equip- 
ment items through which the coolant flows. 

The requirement for restricting the dispersal of any fission products 
that have transited the first two barriers in the direct cycJ.e application 
favors designing the whole periphery of the machinery space as the contest 
ment vessel. In the first place, a breakdown of the first fission product 
barrier, the fuel. cladding, results in a possible circulation of the products 
through the space along the coolant flow path. Secondly, if this condition 
occurs, there will be some escape of the volatile products into the open 
enviroment of the space through gland seal leakage and as non-condensable 
gases from the air ejector. Thus, total containment appears more realistic 
than reactor containment only. Even without cladding rupture, a break in 
flow loop results in the release of radioactive coolant into the spaces. 

A method for accomplishing this containment protection is to incorporate 
this requirement into the structural design of the ship in way of the machine 
ery space. The pressure to which the containment vessel would be subjected 
can be estimated by assuming that it is proportional to the available thermo- 
dynamic energy of the coolant within the reactor pressure vessel and inversely 
proportional to the volume enclosed by the containment vessel. With these 


assumptions: 


Coolant Thermodynamic Energy 
Containment Vessel Volume 


Explosion Pressure 
The separate containment vessel for the NS SAVANNAH plant has a calcue 
lated internal volume of 3.8 x 10% ft? (length = 51', diameter = 35'), At 
&mean temperature of 508 °F within the pressure eae estimated coolant 
Weight is 8030 lbs at an average energy of 505.3 Btu/lb. 
For the CFR system, under the concept of total containment for a comeq 
partment of dimensions 75' x 35' x 30' (= 7.9 x 104 ft), the weight of 
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coolant and average specific energy for the H20 moderated and BeO moderated 
cores are (1662 lbs, 522.3 Btu/lb) and (1551 lbs, 537.8 Btu/lb), respec- 
tively. 

Scaling against the SAVANNAH's containment vessel design pressure of 
185 psig, the estimated pressures to which the containment vessel of the 
direct cycle CFR system might be subjected are 6.2 psig and 5.7 psig for the 
Ho0 and BeO moderated cores, respectively, assuming that the final expansion 
results in saturated liquid at atmospheric pressure (180.02 Btu/lb). The 
estimated pressure should be considered low, since an explosion does not 
occur in the idealized manner assumed. The effect of the larger expansion 
volume and the smaller mass of coolant, which result from the direct cycle 
CFR application with total containment, are illustrated by the pressure 
estimates. 

When faced with pressures of this order-of=magnitude, a feasible ap- 
proach is to consider integrating this requirement into the structural de- 
sign of the hull. A cofferdam (void space) will separate the machinery 
Spaces from the cargo tanks. Stiffening the inboard bulkheads of the coffer- 
dam to withstand explosion pressures of the magnitude estimated above presents 
no great problem and will not materially contribute to the overall structural 
Weight of the ship. 

The longer length of the radioactive machinery space in the direct cycle 
concept requires collision protection over a greater percentage of ax ship's 
length than is necessary for a PWR or other indirect cycle nuclear plant. 

If additional Btacal had to be utilized specifically for collision protection 
at the same rate of tons/foot, this item would drive up the operating expense 
for the direct cycle because of revenue loss. The requirement that cargo 
shielding is necessary to make this concept at all feasible plays a favorable 
role for collision protection, The fact that there necessarily is a large 
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separation between the hull plating and longitudinal bulkheads defining the 
machinery space reduces the amount of steel that must charged to collision 
protection; part of the weight involved can be charged to the tank structure 
itself, 

The data presented in Table 5.3 points up what would appear to be an 
advantage in designing for total containment of a direct cycle plant and 
incorporating this feature plus collision protection into the overall struc- 
tural requirements of the ship. In the case of the SAVANNAH type plant the 
light ship weight for steel and containment totals 6755 tons whereas for the 
direct cycle natural circulation BWR plant these light ship weights are 6650 
tons; for the case of the direct cycle BWR plant with primary containment 
and natural or forced circulation the light ship weights are 6790 tons. 

5.6 Concluding Remarks 

These preceding sections have been written to indicate some of the prob- 
lem areas associated with the design of a direct cycle, steam driven nuclear 
Marine power plant. In this respect, the most difficult design problem that 
has to be solved is that concerning secondary shielding. With the application 
of the direct cycle plant to tankers, the only feasible way to achieve an 
economical ship is by means of burying the plant among the cargo tanks. fThis 
does not solve the problem since the large thickness or weight of secondary 
shielding material over the radioactive machinery space appears to be prohib- 
itive, hence deletion of the overhead shield seems necessary and a new set of 


problems concerning access to a radioactive main deck area is introduced. 
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Chapter 6 
CONCLUSIONS AND RECOMMENDATIONS 
6.4 Summa 

The CFR reactor appears to be an entirely feasible concept. Results 
shown in Chapter 4 indicate that it can produce superheated steam within 
the constraints of metallurgical temperatures. 

The Ho0 moderated core leads to a smaller reactor than does the Bed 
moderated core. In the two configurations chosen for discussion, the H50 
moderated core, though smaller, has a lower modal neutron temperature than 
the BeO moderated core. For both configurations, an enrichment of 50% ye5o 
was used. The results of evaluation indicate that a lower enrichment in 
the neighborhood of 30% will cause more than half of the power produced to 
arise from fissions induced by neutrons with an energy of less than 1.85 ev, 
the boundary energy used in the two-group model used, for the same geometri- 
eal size of the H50 moderated core described in Table 4.4, Reduction of 
the power split between the two groups for the BeO moderated core to this 
level cannot be gehiéved without increasing the core size. 

The power density achieved with the H20 and BeO moderated core are 
45.3 kw/liter and 6.01 kw/liter, respectively. For the two configurations 
Studied, the second pass exit velocities were of the order of 100 ft/sec and 
300 ft/sec. The slower exit velocity yields a core of smaller length. On 
the other hand, the dimensions of the corresponding flow paths are reduced 
and the number of flow paths (i.e., number of annular fuel elements) must be 
increased. Consequently, the ratio of cladding/fuel volume within the core 
increases and more neutrons are parasitically absorbed. The choice of the 
configuration was based on minimum core volume, which turned out to be limi- 
ted by the second pass cladding ee Because of the increase in para- 


sitic absorption, only an economic analysis of fuel cycle costs can determine 
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whether the minimum volume core will in fact be the optimum core. 

It has been stated that as the second pass steam , velocity decreased, 
the required fuel rod length for a given maximum cladding temperature de- 
ereased. This statement was based upon holding the second pass channel ra- 
dius rj fixed. If the number of fuel elements is held fixed (the product of 
V2 ri“), inspection of the results quoted in Table 2.2 will show that for 
a given maximum cladding temperature, the required fuél rod length will in- 
crease as the steam exit velocity, ratio of fuel tube sect (r3/r2) and 
second pass channel radius decrease. In this comparison, the percentage of 
fuel volume within the core decreases as the steam exit velocity decreases. 
Thus, the Ho0 moderated core appears more feasible at low steam exit velo- 
cities than the BeO moderated core, since H50 is a more efficient moderator 
than Bed. 

In comparison with the typical pressurized water and boiling water 
reactors in use today, the H20 moderated CFR appears favorably. The pres- 
Surized water plant in the NS SAVANNAH, the only nonemilitary marine plant 
in existence today, has a calculated power density of 21.1 kw/liter. Addi- 
tionally, the fact that the steam exit conditions are superheated produces 
a cycle efficiency which is approximately 1.4 times the efficiency of the 
SAVANNAH Bote. 

An offshoot of the Aircraft Nuclear Propelled Program has been the 
study of the "630A Steam Generator". This study deals with the application 
of an indirect cycle, air cooled, water moderated fully enriched reactor 
to produce superheated steam at the same design conditions as the CFR. The 
active core dimensions are 47.8" diameter and 27.4" height, producing 67.4 
MWt for 30,000 SHP. The power density for this core is calculated to be 
83.4 kw/liter, or about 1.8 times that of the Ho0 moderated core of this 


Study. Overall cycle efficiency for this plant is approximately equal to 
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that of the CFR plant. Some economic studies indicate that this type 
installation will be competitive with conventionally fired marine plants. 
A review of the core configuration indicates that the reactor would be 
classified as eek. 

The figures of Chapter 4 show the power and temperature distributions 
for a typical CFR core. Near second pass exit at the bottom of the core, 
power peaking is evident. This tends to limit the advantage of the counter 
flow arrangement since the heat flux from the second pass coolant to the 
first pass coolant becomes eaiiervely less. Increasing the moderator/fuel 
atom ratio will decrease the amount of power peaking, making the axial dise 
tribution more uniform and permitting a shorter active length to achieve 
the design exit conditions. 

Control of the direct cycle CFR plant must be accomplished automatically 
or by remote features. An economic analysis of a boiling water direct cycle 
reactor plant for a marine installation indicates that automatic control is 
economically Biiie.” The power level in the CFR can be varied by changing 
the feedwater flow rate or the recirculation flow rate. Control rods must 
enter the core from the bottom, rather than the top, in order to reduce the 
effects of axial power peaking and permit the reactor to be operated at full 
power. 

Shielding of a direct cycle CFR plant presents many problems. The only 
practical installation indicates that tankers would be the sole ship type 
available. Even if the tanker type is chosen, the reactor and turbomachinery 
must be buried in the cargo tanks and limited access will result in areas 
above the machinery space. 


6.2 Recommendations 





Heat transfer can be said to play the controlling part in the engineer- 


ing evaluation of the counterflow reactor concept. Heat is removed from 
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the fuel element by two counterflowing coolants, which at various positions 
during their transit of the core are in the pressurized water, two-phase 
steam-water and dry superheated steam conditions. It is particularly impor- 
tant that the heat transfer coefficient between cladding and coolant can be 
accurately predicted. Correlations for doing this for the two-phase steam- 
water mixture are limited; the majority of published technical literature 
deals with the burnout heat flux and not with the prediction of the cae 
heat transfer coefficient. The correlations that do exist generally show 
wide variations for the same conditions. It becomes almost mandatory that 
more work be done to develop a consistent and reliable means for predicting 
two-phase heat transfer over all quality regions in order that the CFR con- 
cept can be fully justified. 

Many variables were arbitrarily fixed during the study of the CFR. 

These included the nominal first pass inlet velocity, first pass steam exit 
quality, and second pass exit velocity. An increase in the first pass inlet 
velocity will make the core smaller and increase the pressure drop from inlet 
to mixing plenum. The first pass steam exit quality determines the heat 
transfer coefficient, recirculation rate and second pass flow rate. The 
second pass steam exit velocity determines the heat transfer coefficient to 
the second pass coolant, the size of the channel and the power produced in 
the associated annular fuel element. Additional scoping studies are recom- 
mended which would include these terms as variables in the selection of an 
Optimized core. 

The fuel used in this study was a ceramic. One area of further inves- 
tigation that needs to be fully explored is that of using dispersed fuel in 
a metallic lattice. Because of the great variance in thermal conductivity 
between the two types, the curves of required core length shown in Chapter @ 


will be entirely different. 
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The study of transient behavior of the reactor will determine whether 
the concept is sound. Preliminary investigation of this behavior in conjunc- 
tion with the remarks made on the start-up procedure indicate that this is 
the case. This investigation was made using a crude lumped parameter model. 
The transient study of the CFR concept needs much more work to be able to dee 
fine with reasonable accuracy the transient peaks during power variation. 

A detailed investigation of the behavior using numerical analysis techniques 
appears to be not feasible because of the small time increments that are re- 
quired to insure stability of the solution. Refinement of the lumped param- 
eter model by describing smaller and smaller volumes within the core appears 
to offer the most promise in achieving a theoretical tool for predicting 
transient behavior. 

Whether the concept will be adopted depends on its economic potential. 
The FORTRAN program listed in Appendix G can be modified to assist in this 
evaluation. It can be coupled to a fuel cycle or burneup code. This coupling 
should be such as to allow the reactor to produce power for a specified time 
increment, calculate the change in composition of the constituents and fis- 
sion products, homogenize the results so that the CFR program can again be 
entered to determine the fine details of the power distribution, and then 
repeat the cycles until criticality is lost. 

The steam cycle into which the CFR was installed is pertinent to a 
Marine plant. The direct cycle plant is extremely limited for this type of 
application, primarily due to the shielding requirements. As such, investi- 
gation into the use of this concept for an indirect cycle plant may show 
additional advantages. Such an investigation will require the determination 
of a new set of cycle parameters for the primary loop, dependent on the tem- 
perature pinch points in the heat exchanger and relative flow rates in 


the two fluid loops. If the core configurations presented in Chapter 4 could 
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be directly applied to an indirect cycle plant, the overall cycle efficiency 







yuld fall because of the lowering of the maximum practical turbine inlet 
steam temperature and the machinery weight of the plant would increase due 


to the steam generators and primary coolant pumps required. 
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APPENDIX A 


NUCLEAR ANALYSIS 


A. 1 Choice of Model 

The mathematical model describing the steady state neutronic 
behavior is that of twoegroup diffusion theory. Diffusion theory has 
been chosen because of the relative simplicity with which it can be 
applied and a solution obtained, in contrast to the greater complexity 
which results when a higher order transport theory approximation is 
used. The results obtained from this theory are not as precise as might 
be desired, particularly in the fuel regions. This sacrifice is necessary 
to permit a digital computer program to be written (1) that is not of such 
length that it will exceed the machine storage capacity, taking into account 
the fact that the coupled nuclear, thermodynamic and hydrodynamic problem 
must be solved simultaneously, and (2) that the necessary computational 
time per data set conforms to those restrictions imposed by the MIT 
Computation Center that a maximum number of parametric values can be studied. 
A.2 Formulation of the Basic Equations 

The general multigroup steady state diffusion equation is written in 
terms of the physical processes which define the flux level ¢ for neutrons 
in energy group j at some spatial point x. Energy group 1 denotes neutrons 
with the highest kinetic energy, whereas energy group N, N being the number 
of discrete groups into which the energy spectrum has been divided (two for 
this problem), refers to neutrons of thermal energy. A conservation equation 
is written for the neutron density, which defines these processes within an 
infinitesimally, small volume at . ° 


Diffusion theory approximates the number of neutrons which are diffusing 
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away from the volume centered at x per unit time and per unit volume 
as 
Diffusion rate = V-[D5 (x) Vo9(x)} 
The rate at which neutrons are absorbed by constituent nuclei 
within the volume by fission or non-fission capture is 
Absorption rate = = (x) $5 (x) 
In addition, there is also a pseudoeabsorption process in which the 
neutrons of group j are removed from this group to groups of lower 
energy (higher group number) through the mechanisms of elastic and 
inelastic scattering. The rate at which this removal process cone 
tributes to the conservation equation is 
N i>k 
Scattering absorption rate = >. |=? (x) p(x)| 
k= j+1 = 
Just as the neutron density is lowered by downscattering to lower 
energy groups, the density in these lower groups is increased by this 
mechanism. The contribution to the density of group j by all higher 
groups is given by 
Scattering source rate = =| > (x) a) 
k=1 2 
In addition to the downscattering source term, neutron pro- 
duction is also occurring due to fission, if the region under consider- 
ation at point x contains a fissionable material. Because of the 
Statistical nature of the fission process, fissions induced by neutrons 
of group k produce neutrons in group j. Representing the probability 
that, of all the neutrons born by fission, over all possible energies, 
the fraction of fissions born directly into group j is given by x(x), 


the fission source is 


N 
Fission source rate = RG) | oe D(x) xo) 
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Combining these terms througn a conservation equation based 
on the rate of change of density with time, 
0 = Production - Absorption - Leakage 
the general multigroup steady state diffusion equation can be formu- 


lated in continuous space as 


0 = VL) Way - S3a) Po 2H fe *a] eon 
k=j+1- § 
N 1 a 
+o) EEK She) Ma] + pal eal d(x) 


Certain boundary conditions have to be applied within the reactor 
to describe the behavior of the neutron density and flux for all energy 
groups at an interface between two different materials. Since an inter- 
face possesses no finite thickness, the density cannot change across it. 
Because the density does not change, the rate at which neutrons traverse 
the interface must be the same on both sides, i.e., the current must be 


continuous. These conditions then are expressed mathematically as 
J - gd = 
p CO rert aunt co) ae (A~2a ) 
D(x) Vd (x) | = D(x) Vox) | (A-2b) 
icp an right 


The local power generation rate at any point, due to stopping of 
the fission products in the region of the fissioned nucleus, is defined 


from the condition that 


P(x) = C = [Eko $x) (A-3) 


Equations (A-1) - (A-3) form the basis of the subsequent develop- 


ment to define the flux and power distributions within the reactor. To 
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determine these distributions, the continuous equations must be 
reformulated as finite difference equations. 
Aj Reactor Subdivision 

The reactor is in the form of a right circular cylinder. This 
configuration has been chosen to yield the maximum neutron economy 
and a minimum of heat removal problems. In this shape, the variation 
of parameters around the radial centerline is assumed to be rotationally 
symetric, so that equation (A-1) can be written in two-dimensional 
cylindrical (r,z) coordinates. This assumption presupposes that the 
effect of a discrete number of control rods around the reactor center- 
line can be represented by considering them to be smeared out over an 
annular ring. As a result of the discrete character, the fission rate 
and burneup in the neighborhood of a control rod shows an angular vari- 
ation. These two effects are neglected by this assumption. This 
neglect does not change the overall flux distribution within the reactor, 
but introduces an additional fine structure which alters the local power 
distribution rate. 

The reactor is divided into Mp radial regions and Mz axial regions 
as shown in Figure A.1. The properties of any region within the reactor 
can be specified by the double subscript (I,J). The lower plenum is 
denoted by J = 1, the upper by J = Mz. The radial reflector is denoted 
by I =Mp. The core regions are then specified by I = 1 to I = Mp = 1 
and J=2to J =Mz- 1. The properties of all radial subdivisions per- 
tinent to the lower plenum have the same value. The same is true for the 
Upper plenum regions or the radial reflector regions. 

Figure A.2 shows a horizontal cross section of one of the cells with- 


in the reactor core. All regions across the cell can be described by a 
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set of concentric circles. To simplify the mathematical treatment, 
the moderator region is also assumed to be annular and the equivalent 
diameter of the square cross section is defined such that the area 
enclosed by the circumscribing circle is equal to the cell pitch 
squared. This permits describing the cell properties in terms of 
cylindrical coordinates in two dimensions by again assuming rotational 
symmetry. 
A.4 Reduction to One=-Dimension 

Within any given core subdivision volume, the nuclear properties 
of the constituent material are independent of position and equation 


(Ae1) can be written in (r,z) coordinates within this volume as 


Z Lee’ } 
0 = pi (ye +V) d3(r,2) - [Zz + = ze) 6J(r,2) 


(A-4) 
= | 
+ Ee Hea) +x 7 \ah Zr 9 K(2,2)] 
k=1 
where 
= é i 3 94 
V. a + age (A-5a) 
and 


tp - ~ (A=5b) 


Zz 


The two-dimensional nature of the flux variation is introduced by 
the Laplacian vntars 

Physically, these operators account for the diffusion or leakage 
away from a given point. Because of their presence in (A-4+), the total 
nutber of space mesh points that must be considered, when formulating the 


equations in terms of finite differences, is equal to the product of the 
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number of mesh points in the radial direction and the number of mesh 
points in the axial direction. To reduce the total number of space 
points, it is advantageous to define a macroscopic leakage cross 
section za which will account for the eoudnarianell effect and 
p ermit reducing equation (A-4) to a one-dimensional difference equation 
without an inordinate decrease in accuracy. 

To accomplish this reduction, the direction in which the flux 
mapping is to be performed is either described in terms of plane (z) 
or polar (r) coordinates. Then, defining a Laplacian operator v<, 
which is in this direction of calculation, the leakage cross section 
will account for neutron flow in a direction transverse to the calcula- 
tional directional. YW“ is defined by equation (A-5a) or (A-5b), depend- 
ing upon whether the geometry is polar (r) or plane (z). 

In terms of the leakage cross section, equation (A-4) is written 
as 

o = Dy g(x) - [z+ zf+ = (= 5°*)] g5(x) 
k=j+1 
(A~6) 


+ feos xy} +x! F [kk d(x)} 
k=1 k=1 

which is one-dimensional with respect to the Laplacian operator, but 
two-dimensional with the inclusion of the leakage cross section. The 
method of defining the leakage cross section is derived in Sections 4.12 
and A.13. 
A.5_ Formulation of the Difference Equations 

Using the method of finite central eich ane A first difference 


for some function f at some mesh point k is given by 
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nisin 


The second central difference about point k is 
A’ = ACAN) = fey - 2% + Hey 


With these definitions, the Laplacian operators in plane or 
polar coordinates take the form 





Vr = 
Z=2) daz? 
and 
£ = 2+ tee 1 fpyt = ft 
qf — Vals k ke i ose k+5 k-3 
r=r; Ar | Ar 





The half spacing in (A-8) is inconvenient, so it is replaced by 


Prat = Ppt Pety 7 fy 
Ar 2Ar 


giving for the polar Laplacian 


AT, tke ety AT, fhe 
V5 on, = (+557). Are ~ Are al or) Aré 


The similarity between equations (A-7) and (A-9) is apparent. 


The geometrical correction factor ( Ar;,/2r_), which appears in (A-9), 


Can also be written as 


~“. r 
ti 


GQ - y= 1 - 


a 


Where G is defined to be unity if the coordinate system is polar. 
Defining G to be zero for plane geometry, a general one-dimensional 


laplacian operator can be written in terms of central differences as 
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(A-7) 


(A-8 ) 


(A-9) 


(A~10) 





ve (4 ee SS 
where 

G = QO plane geometry 

G= 1 polar geometry 


Using these definitions, the difference equation equivalent of 
(A-6) in terms of plane or polar geometry at some position x = x, 


becomes 
pJ GAx pd Gax 
0 = Bxe (1 + 2x}? b244 aa Ax2 (1 - Oxy bi, 


; N 
-([B+ eis ai+ BD cepy] 9 


m= j+1 


jet . N 
= (Sm9 gR) 4+ o/s GJ = v0 | 


A.6 Induction Formula to Invert Flux Difference Equations 


The basic mathematical technique to invert a one-dimensional set 
of equations in the form of (A=12) has been previously oma A 
brief outline of this method is given below. The difference in the 
method of solution, as required by the inclusion of the leakage cross 
section = is noted. 

Within a region the cross sections and diffusion coefficients 
are constant. The variable parameter is the flux. i 9 lasi two icrms 
in equations (A-12) represent the source terms for group j and position 


Kk. These two terms are denoted by Sp: 


= as (ze gm) 4 pa FZ ol 
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(Am-i1a) 


(A-11b) 


(A-11c) 


(A-12) 


(A-13) 





Denoting the total removal cross section from group j, disregarding 
the influence of diffusion in the direction of calculation, and 
leakage perpendicular to this direction, by the symbol Pa) the 
mathematical definition becomes 


N 


J = J s is i 
2 ea a 254, l Pat | ey 
S 


The leakage cross section ae in (A-12) introduces a variation 
in the treatment between this method and that previously referenced. 
If the leakage cross section is negative and there is a net flow of 
neutrons into the region under consideration, it is possible for a 


condition to arise where 


‘ N - 
my > os t+ 2 (LP) 


m= jel 








When this situation occurs, the total cross section for absorption, 
downscattering and leakage becomes negative and direct inversion by 
the methods of (4) leads to a mathematical instability in the difference 
equation representation. 

To preclude this occurrence, the following technique is employed. 
The value of the leakage cross section Ze is tested to determine whether 
it is positive or negative. When 2 : is greater than zero, the source 


term and total removal cross section term are modified to 


© =>) : N m 
pe F(Z hy ae x Zo" Ze hy (Ae15a) 
N . 
J. sd J oP mae A-15b 
moe 7 + 2, + Zs ) (A-15b) 


On the other hand, if ap is negative, = is included with the source 
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term so that 


y j 41 m= j ; N 

‘ae J o fv) ‘Ke nem 
s) Ey p + = (<2. 4.) + X = (x a g) (A-168) 
sj J s jm 
Lg =a, + = ( Lag } (A-16b) 


Using the appropriate set of either (A-15) or (A-16), equation 


(A-12) is rewritten as 





O= pI Gax \ gd pd wx 
= (2 + =e ) Pad + hers (1. ) py_4 





. (A-17) 
apd J i j 
o( =5 + 
( Ax ang Dy, ae 
Equation (A-17) is solved for the flux at the point k + 1. 
Gx 
a J 
————E—— “8 + =| - ae 
J 
5 (1+ Bk) (1 + St ) = (ne ane 
Sx OX} ex 
Defining the quantities a’, pb? and od by analogy, (A-18) is rewritten 
as 
ar F * J) ee J ’ 
Peta k fr % be fr 17 -r (A 19) 
To invert the matrix defined by (A-19}, an induction formula is 
assumed. 
Te J J 
Pee fia + Ak (A-20) 


21 


Inserting this assumption into (A+19) and solving for fi gives 
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-. «7 “ J Ad Bs 
= + +b ) 
De Posy ( wi k = ’ 








(A-21) 
ad : *k 
which establishes the relationship between the A's and B,'s. 
, ‘ < Jj 
a 6d J A, 
Ay = Or of by. = (A-22a) 
Bie 
J j j 
Bes >>| rk (A=-22b) 


BE 


A.7. Difference Equations at an interface 

At an interface between two regions of different properties, 
the boundary conditions of diffusion theory (A-2a,b) must be satisfied. 
In the subsequent development let primed quantities denote properties to 
the right of the interface and unprimed quantities denote properties to 
the left of the interface. 

To solve this problem, assume that the interface is centered at the 
point x; and write the diffusion equation for the left hand region using 
central differences and define a ficticious value of the flux at the point 
Xy4) in terms of the properties of the left hand region. Let superscript 
f additionally identify the point at Xt 


if J Ia!  ..d 3 
a = OSE Ay wee fey Cr (A-23) 


Following the same procedure for the region to the right of the 


interface and defining a fictional flux at the point X,_, yields 


J? a we J? gJjAf JA J 
Pen oa Pre i De fo 7 “ie (A-2h) 
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In difference form, the boundary conditions at the interface 


are written as 


J 4 

DB. = Ay (A-25a) 
| es J” je if 

a | Pi At - he? ] Ao 7 hues —_ 


Using (A-21) and (A-22a,b), the bracketed term on the left hand side 


of (A=25b) can be rewritten as 


Jf J Is ¢ a ee 5 
Oe ay = ee fe-| + (1 + dK) ARy (A-26a) 
k 
and the bracketed term on the right hand side as 
go” 5 a “ 1407) ae ace gi” See (A-26b) 
k+l k=l k k+l kK ak k i 
et a == 
ae bd bd 
k k k 
Requiring flux continuity at the interface, inserting (A-26a) and 
(A-26b) into (A-25b), and solving for the flux at the interface gives 
17 
oi : aed + A ae 
A-27 
Bd 
k#+1 
where 
; iM j ae mer 
Bees ; D 2x Dic og, (14§) 7 (A-28a) 
1+bJ7 pu? Ax (1494 me 
k Be 


J \7 / i j J 
Bui = + a Ax wo a a (A-28b) 
( 1+op po Ax abd 


The particularly advantageous feature of (A-27) and (A-28) is the 
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preservation of the recursion formula defined in (A-20) and (A-22). 


A.8. Derivation of the Difference Equations at the Origin 


Two boundary conditions can be specified at the origin - either 
zero flux or zero current. The zero flux assumption neglects the effect 
of extrapolation distance but introduces negligible error, particularly 
when considering the uncertainties later introduced through the heat 
transfer correlations. These two boundary conditions at x #0, 


denoted in the difference notation by K = l, are 
g = O (zero flux) (A-292 ) 
g; = 0 (zero current) (A-29b) 


Evaluating the condition of zero flux first, equation (A-20) is 


used and K is set equal to ed. 


J 1 ; 
p rn p2 of As 





e (A-30) 
J 
B 
3 
Setting K = 2 in (A-19) and remembering that g = © yields 
| a A-31 
p;, = 2D D Cy (A-31) 
which can be rewritten as 
j J J 
= ¢€ 
ape ts_*_S (A-32) 
J 
ar 
Thus, the recursion factors AS and BS are defined. 
Ad = oc (A-33a) 
e 2 
Be ad a (A330) 
S . 2 
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The condition of zero current is not as direct. To determine 
the finite difference representation, a neutron balance equation has 
to be written. The cylindrical geometry introduces slightly more 
complexity than plane geometry, so the boundary formulation will be 
developed for this geometry, and then generalized to include both 
plane and cylindrical geometry through the use of the geometry function 
Ge 

The net number of neutrons that result from production and removal 


per unit time over the circular area of radius x/2 and unit height is 


Git? i ee 
Production =- Removal = A Bis I 8) a on g? |x dr (A-34) 


The net number of neutrons diffusing out of this volume is determined 
by the current at 4x/2 multiplied by the cylindrical area. This, then, 


yields 


Leakage = - 27 (é£x/2) pd Y “te (A-35) 


The conservation equation is, in steady state, 


QO Production =- Removal - Leakage 
or, in mathematical terms, 
(éx/2 
ty 


7. i "| | j ug 

= a of pY \ A-36 

= | 3} s gi lor dr = 123 Ip (A-36) 
In the integrations of equations (A-34) or (A~36), the source 

@nd flux are assumed to be constant over the range from 0 to Ax/2. To 


calculate the flux gradient at.Ax/2, the flux is first expanded in a 


Taylor series about some point a 
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| wy ; 
P'(x) = P(xo) + f° (x5) (x = x5) + 1/2 g(x.) (xex,)© +, (A-37) 


where primes denote differentiation with respect to k. Setting x_ = 
O 
dx/2 corresponding to index 3/2 and evaluating the flux at x = 4x 


(Ke2) and x = Q (K=1), the gradient at the half space can be evaluated. 


j 4 \7 Ld 
t; os P3 Jo + = $3 /2 + = Poin te 


(A-38a ) 
1 - #32 . x S5/ i es foto (A-38b) 
Subtracting (A-38b) from (A-38a) gives 
V85/0 r f “ #3 ' t; (A-39) 
Ax 


which is valid through second order terms. Equation (A=-39) could 
have been derived directly by taking central differences about the point 


x = 4x/2, but this would not have demonstrated the second order validity. 
Integrating (A=-36) and using (A-39) gives 
25g if gi. 


J 
which can be solved for p, - 
pi + Ax si 





, , 
 * ——— = (A-41) 
Su Ax 
ies 
h pe 


Equation (A-41) is valid for cylindrical geometry only, but can be 
generalized to both plane or cylindrical geometry by incorporating the 
definition of G 


Ze 





$2 4 Ax gt 


2 (1 + G) 





g = __ re a 
i 5 ; Zao (A-42) 

L + 

2(1 + G)DY 


Again, the identity with (A-20) appears and the appropriate recursion 


coefficients can be defined. 





J 4 j 
A, s $x SF | 
2 (146) (A-43a) 
JI Axe 
BY = 1 + a 


The use of equations (A-33a,b) and (A-43a,b) permits definition of 
all recursion coefficients of higher index. 


A.9. Derivation of the Difference Equations at the Periphery 
Again, as with the conditions at the origin, two options are 


available = zero flux and zero current. Let m denote the index correspond- 
ing to the edge of system under consideration. 


The trivial solution for the case of zero flux is simply 


B,, a © (A-4h) 


For the condition of zero current at the edge, a Taylor series 


expansion is made for the flux in terms of the flux at the edge of x,. 
P $ of A . D 
p(x) = f° (x,) + f° (xn) (x-x,) + 1/2 g° (x) (x-xy) eo. (A-45) 


Evaluating this expression in difference symbolism for the point at 


X = Xm- x (index m-1) and remembering that ge = 0 gives 
: ‘ . ff 
j J ee ms” A-L6 
gi, = OL + Oxo fh te. (A-46) 
2 . 
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through second order terms. Solving for a, 


ee s ; 
 —_—_ Sa 


The flux at m-1 can be eliminated from (A-47) using (A-20) 





J “ ~~ i = J ~ J J 
Ps <5 pte) + 2 ke (A-l8) 
Ax Bd Lxe Bd » 
nm m 


Writing the diffusion equation for the point at x = x 
m 


: - ° 2 
mp dd sd yd J 
mo D> Pp e-2?a fh, +8 (A-9) 


m mM 


and substituting from (A-8) yields 





os ap) (1-5) |g) apd ad 53g) 4 93 
=O 4 = —_ J 
] {fe ~ Pee a ‘ T Q Te oF (A-50) 
mM 





gy Sin + 2D An~1 
ox “ (A-51) 








A.10. Method of Defining the Two-Dimensional Flux and Power Distribution 
Figure A.i, Reactor Subdivision, has given an indication of the 
method of attack that will be used to define the flux distribution. It 
involves homogenizing the constituents in each of the core subdivisions. 
By describing the flux distribution through the use of a one-dimensional 
formulation, corrected for the two-dimensional character by the yet to be 
defined leakage cross section re a marching type approach can be used. 
The solution proceeds as follows. For the first time through the 


424 





nuclear calculations, the power distribution both within the core 

and across the fuel tubes is assumed to be constant. With this 
assumption the average coolant density in each of the different core 
subdivisions and the upper plenum is determined. This information 
then permits defining the macroscopic nuclear properties for cell 
regions 1 and 5 (FigureA2 for all subdivisions. On subsequent 
iterations, the density variation is determined from an extrapolation 
of the previous calculated power distribution. 

To proceed with the method, the radial region denoted by index 1 
is considered. The calculation starts with axial region 2 and homogenizes 
the properties in this subdivision as defined by tie céll properties 
determined by a cell producing power at a rate characteristic of the 
average rate for all cells in radial region 1, subject to the condition 
that the total power produced in the length defined by axial region 2 
was determined by the previous power distribution calculation along this 
length. The cell region defined by this length is considered to be 
infinite and the homogenization is performed by calculating an equivalent 
diameter for the square cell, based on cross sectional area, and doing a 
radial flux calculation across the cell, subject to the conditions of 
zero current at the origin and edge of the ceil. As a result of this flux 
calculation, the homogenized constituents of this region define the 
macroscopic properties for this larger reactor region. 

After this homogenization is performed, the calculation steps to 
axial region 3 and the process is repeated until all the core subdivisions 
in radial region 1 have been homogenized. Then, ar axial flux calculation 
in the z direction of Figure Ajgeometry in which the presence of the lower 


and upper plenums are included and the flux is set equal to zero at the 
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bottom and top of the reactor. As a result of this flux calculation, 
the fraction of the total power generated in each axial subdivision 

is determined by integrating equation (A-3). Letting P, (I,J) be the 
integrated value of (A=-3) over axial length J in radial region I, the 


fraction of power generated in axial zone J is 


Fa(I,J) = Fa(T,J) 


= Pa(I,o ) ange) 
J=2 

When the Fa(I,J) is defined for all (Iel, J=2es M, - 1) subdivisions, 
the calculation steps to (I=2, 5=2) and the subdivision homogenization and 
power fraction determination is repeated. Thus, the fractional power 
distribution is determined for all core subdivisions based upon the axial 
flux traverses. 

After the distribution has been obtained for the outermost core radial 
region, the homogenized properties at the core midplane for each of the 
radial regions plus the properties of the radial reflector are used to 
determine the radial flux and power distribution across the reactor. For 
this case, the boundary conditions are zero current at the origin and zero 
flux at the edge. When the flux distribution has been determined across 
the core, the power distribution is again obtainable from (A-3). 

Denote the fraction of the total power that is contributed by each 


of radial core zones as Fp{I), where 


FR(I) yn PR(T) 


ey (A-53) 
= Pelt) 


isl 
Using this definition, a two-dimensional histogram can be obtained by 
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multiplying (A-52) and (A-53} to obtain the fraction of reactor 
power that is produced in each core subdivision. 

Each cell within a given radial zone is assumed to be producing 
power at a constant rate. tet A. be the cross setti onal area of a 
cell and A(I) be area of radial zone I. Then the power produced in 
an axial length, denoted by J, by an "average" cell in radial zone 


{is 


af ~\ Gul 77 
Q (1,2) s | Ag Fe(I) Fa(T,J) | FR (A-5h) 


sf. 
where the non-indexed symbol Pp is the reactor power generation 
rate. 
A.ll. Homogenization of Cell Properties 
The square section of a typical cell is replaced by an equivalent 
diameter as noted in Figure AnZs This permits formulating the necessary 
difference equations in terms of a one-dimensional model. 
To obtain a representative set of nuclear cross-section values which 
will characterize the processes occurring within a cell, the cross sections 
for the different regions are averaged with the integrated flux and volume. 
Thus, the homogenized cross sections are determined by the reaction rates 
which are taking place in each of the cell regions 
= <3 
a Spar (A-55) 
2 av 
Equation (A-55) is valid for fission, absorption and scattering cross 
sections. 
The determination of a homogenized diffusion coefficient for the cell 


is more uncertain. If one starts with a homogeneous mixture of material, 
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the energy dependent but spatially independent diffusion coefficient 
for the mixture be defined by mathematicai models, which are cenerally 
accepted. However, starting with a heterogeneous mixture, the method of 
determining a diffusion coefficiert is not so well understood and at 
the present time is under experimental and analytical investigation. 

in the context of diffusion theory as used in this analysis, a 
relative simple approach can be taken. The errors generated in this 
approach are caused by the shortcomings of diffusion theory, particularly 
in the case of heavily loaded cslis. Diffusion theory relates the 
diffusion coefficient of a homogeneous assemblage of isotopes to their 


®) 
transport cross section by 


Bs 3 Bal } (A-56) 
Dd i soa as 


where i denotes the ith isotope in the mixture. The isotopic transport 


cross section is given by 


\y 


~tri i S 


a a ~ 
eos (25 +2 .5(1=5,)] 1-4 
a 1 Oo 5 


(A-57) 


«fs 


+ sft — |. 
where A, is average cosine of the scattering angle in the laboratory 
system of coordinates and zis the scattering cross section. 

The isotopic microscopic transport cross section of each constituent 
is determined by defining the density of that constituent based upon the 
total cell volume. Using this density, the energy dependent absorption 


cross section is defined from an appropriate set of spatially independent 


hr 
OO 





flux equations. The constituent density is determined by not 

only weighting with the ratio of regional volume to total cell 
volume, but also by a flux utilization factor. In other words, 
the density is flux and volume weighted, but the flux is not known 
so a guess must be made regarding its level in each of the ceil 
regions for the two energy groups. 

Knowing the values of the constituent density and the scatter-~ 
ing and absorption cross sections, the flux-volume weighted isotopic 
transport cross section can be determined from (A~57). The volume 
representative diffusion coefficient of the cell can be obtained from 
(1-56) by summing over all the constituents of the cell. 

Using (A-56), the diffusion coefficient for each region in the 
cell can also be obtained. If the other cross sections for each region 
are known, equation (A-12) can be solved for the flux distribution, 
subject to zero current at the origin and periphery of the cell, to 
yield a new set of fiux levels for each of the regions. Based upon 
the new flux levels, a new set of constituent densities is obtained for 
the isotopic and the spectral dependent cross sections can again be 
calculated, including the transport cross section and the diffusion 
coefficient for the total cell assembly. This is a reiteration process. 

fo simplify the determination of the diffusion coefficient for the 
cell, the iterations have been stopped after the second trial. Thus, 
the representative densities are calculated across the cell, and the 
energy dependent cross sections are calculated. The macroscopic cross 
sections and diffusion coefficients for each region are determined, and 
(A-12) is solved. To determine the spatially representative cell 


diffusion coefficient, the microscopic transport cross section of each 
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isotopic constituent is assumed to remain constant but the flux- 
volume weighted density changes due to any change in the regional 
flux level. Under these conditions, a new average transport cross 


section is obtained for the cell by weighting in (A-55). 


i (3 j 
as Ctr pear 


ce 2 (a-58) 
ip av 
In terms of the average and regional diffusion coefficients, equation 
(A-58) can be written as 
Dd - 4, ay i 
—_ pray (A=59) 


) Dd 


A.l2. Calculation of the Radial ieakage Cross Section 





Explicitly included in equation (A=54) is the assumption that 
the power distribution within each subdivision of the core is proportional 
to the product of the axial flux distribution in a given radial region and 
the radial flux distribution across the core. Then, designating the axial 
flux level at some point k in radial region = by the notation i, (I) and 
the radial flux level at some point m by the notation 6; r a twoe 


dimensional variation of the flux in radial region I is given by 
j - j j 4 
Boa = po Pay (1) (A~60) 


To preclude distortion between the different radial regions, the axial 


flux is integrated over the reactor height such that 


¢ j ; ‘ 
$2 (1) az = 1 a) 
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Thus in equation (A-60), the term f° (I) is a shape factor for 

the axial variation and the magnitude is determined by 6, o The 
variation of $n for different energy groups j determines the coupling 
between the groups in br 2 

The determination of bap (I) in (A-12) involves a calculation over 
the height of the reactor which must simultaneously include the effect 
of the radial flow of neutron across the core at different heights and 
the influence this radial flow exerts on the shape of the axial flux 
distribution. For instance, in radial region I = 3 and axial region 
j = 3, there can be a net gain or loss of neutrons in the radial 
direction to region (I = 2, J = 3) or to region (I= 4, J = 3). The 
problem is to formulate a cross section for region (I = 3, J = 3) which 
will account for this radial flow and by which the flow can be represented 
by the product of this cross section with the flux level in region (3,3). 
This is the previously denoted leakage cross section 24. 

To make the analysis easier to follow and to simplify the notation, 
attention is first focussed on a particular subdivision of the core. 
Arbitrarily, radial region { = 3 and axial region ' = 3 is chosen. It 
is assumed that radial region I = 4 is also in the core. Let primed 
quantities denote values to the right of an interface and unprimed 
quantities to the left of an interface. 

Since one of the boundary conditions on the solution of the 
diffusion equation is that the cwrrent is continuous at an interface, 
its value can be calculated on either the right or left side of that 
interface. Using diffusion theory and the definition of current, the 


following expression is valid. 
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GEOMETRICAL DEFINITIONS FOR DETERMINING LEAKAGE CROSS SECTION AT (I=3, J=3) 


Figure A.3 





' Net number of neutrons diffusing rr 


from region (3,3) to (2,3) = 2cR,D9(2,3) 
per unit time 





where pd(2,3) is the homogenized diffusion for radial region I = 2 and 
J m 3 and energy group j and #2(2) is the continuous counterpart of 
discrete flux distribution defined in (A-61). Since the flux has been 
written as the product of two terms, the integration in (A-62) can be 


reduced to 


— fo J 
la Cie (r}| -- fF Bate) ae ; 





In simplified notation and using the result of (A-63), the follow- 


ing relationships can be written. 


Net number of neutrons diffusing 


from region (3,3) to (3,3) = 2/R_D)(2,3) BAi(Pef yf? g., (2)az 


per unit time 
(A-6h) 


= 27R,D°(3,3) 2 Ae) i ( z)dz 
(A-65) 
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Net nurber of neutrons diffusing 


‘ oo ; ~22 
from region (3,3) to (4.5 = = 2R3D"(3,3) Dd P(R3) | d (z)az 
per unit time or Z, a 
(A-66) 


. Ze 
= = 27R,D4(4, J j 
27R3D°(4, 3) LPQ(R3) m # (e)ae 
(A-67) 


If the assumption of a product type representation of the flux was 
exact within diffusion theory, the results of (A-6h) and (A-65) would 
be equal and the results of (A-66) would equal those of (A=67). These 
conditions of equality are not obtained since the flux representation 
is only approximate. As an averaging correction to this discrepancy, 


the following assumption is used. 


Net number of neutrons diffusing 


from region (3,3) to (g,3) = 1 | (a-6h) tt (1-65) | 
per unit time 2 


Net number of neutrons diffusing — 
from region (3,3) to (4,3) = 2 | (4-66) ce aoe) 
2 


per unit time 


Writing these expressions in mathematical terms and finding the total 


diffusion away from region (3,3} in the radial direction gives 


Net number of neutrons diffusing ( j j Ao j 
radially from (3,3) per = a RaD' (2,3) aFR(Ro) )~ & (z)az 
unit time ( r 2, Ao 

(A-68) 


: < ; Z 
+ DK(33)[Re LAR(e) + Ry LB (RIE * Hhyledae 
ae gr 1 
Rad? (4,3) 4 62(R3) 2 3 (a)an 
mee Sy! Wa 3 a iap. , Al, 
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Introducing the quantity 29 (3,3), the number of neutrons 


which are lost from region (3,3) to regions (2,3) or (4,3) is defined 


by 
Number of neutrons diffusing 23 R3 j , ; 
radially from (3,3) per = Bf 25° (2,3) (r)f) o(2)raraz 
unit time 3 f R 3 


me _ R3 Oj ’ 
= a3 (3,3) ) ~ 9, (2}az P(r) rdr (A-69) 
| Zs A3 R 
Equating (A-68) and (A-69) and solving for 3 (3,3) gives 


54(3,3) _ Right hand side of (A-68) 
Ne —_ a +o — 
3 xd { ae) (A-70) 
$, (2) dz pA (r )rdr 


The right hand side of equation (A-68) can take several forms 
depending upon how many radial regions the core has been divided into 
and at which radial position the calculation is being performed. To 
generalize (A-68) replaces the radial index 2 by [-l, radial index 3 by 
I, radial index 4 by T + 1 and axial index 3 by J. If index I is greater 
than 1 and is bounded on the right by another core region, equation (A-68) 


is written, with only.the indices replaced. 


és . s Z-. 
Cray DUET IO IAB a) SF g(2dee 
or Jal 


+ OACz,0)| F me Af bom die se - (Ry) | i, g) (2)az 


- Ry D ieee E x ED % fe (z)az 3 


S1(1,3) \, (A-71) 





of Bart) dz ly g ‘r) rdr 
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If radial region f is greater than 1 but index I + 1 corresponds 
to the radial reflector, the form of equation (A-66) is used but there 
is no averaging with (A-67) since no axial flux calculation is done in 
the radial reflector. The resulting formulation is 


4 J e\ a j 
p Sta2 mathe) A(R, . 2 ; Dare (2 z)dz 


R-_3) - 2 Ry . f2(Ry! é g° 2)) 
jt, 





Zs « 1 F- (A-72) 
ce J + , a, ‘. 
2 Papi Zaz z #. (r) r ar 


am fel 


When I=1 and the region f = 2 is part of the core, the leakage 
cross section becomes 
fe I rtd! os) J » gd J 
Ry ¢ Dali) 0, PCR,) f ° (2)dz +D (2,5) Yy 102) i o(2)dz 
( oo R 3 \r 
a 2501 Tent 
< 
ec. (1,3) = 
; iid (A-73) 
2 i a (z) az { g Riv) rar “13 
0 


os 


If I=l, and I=2 corresponds to the radial reflector, the leakage cross 
section becomes independent of the axial flux distribution and is given by 


<j i a3 
2g(1,c) = _ "2? (1,5) s= gp (Ry) 
(A-7h) 


ck 
; +g (r) r dr 
ae) 


This last equation provides the simplest and least satisfying result. It 
demonstrates the error involved by assuming a product type solution for the 


flux distribution. 
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The transverse leakage perpendicular to a one-dimensional flux 
calculation is frequently denoted by the term pd BY, where Bed denotes 
the “buckling” of the system. Based on this definition, it is possible 


to define a radial regional “buckling" within the core as 


a5 3 
B’(r,d) = Ge (2,9) 
ne” Sh (A-75) 
nm (5,39 
For the condition that Zp (155) is negative, based on the appropriate 
equation, the physical interpretation is that more neutrons are crossing 
into region (i,0) from regions (I-1,S) and (I + 1,5} than are leaving. 


<p 
{ 


For this case, the leakage is negative and eee D. is treated as a source 
term and leads to the definitions of equation (A-16). %m the other hand, 
when J4(I,3) is positive, the leakage is truly acting as a neutron absorber 
and equations (A-15) are used. 

The integrations and differentiations designated in this section have 
been described in terms of continuous functions. The solution for the flux 
has been defined in terms of discrete values, so these integrations and 
differentiations are numerical. Differentiations to the left of an inter- 
face is done by backward difference equations and to the right by forward 
differences. 


Av13. Calculation of the Axial leakage Cross Sections 





For the condition of axial leakage when performing the radial flux 
calculation across the core and reflector mid-plane, the leakage cross 
section has been defined in terms of the so-called system “buckling Ben 
and the diffusion coefficient DY(i) of the mid-plane. 

The fast group axial buckling for all the radial regions has been 


defined in terms of the geometrical height of the reactor. Thus 
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2 


— (x) = rod 
A (Reactor Height) (A-76) 


In terms of a leakage cross section, 


52) = D (1) va (T) (A-77) 

This leakage cross section is always positive, so equations (A-15) 
are used. Note that the only variation of 5 (I) occurs through 
variation of the diffusion coefficient po’ (rz) across the reactor. 

For neutrons in the thermal group, the axial buckling for the core 
regions is descrited in terms of the reactor height H,. and the lower and 
upper plenum properties which define a "reflector savings". For the case 
of water in the upper and lower plenums, the thermal diffusion length is 
relatively small compared to the plenum thicknesses so that from the 


nuclear viewpoint the plenums are essentially infinitely thick for thermal 


neutrons. 
of 6 
The reflectors savings SS for this condition is defined from 
= 
we = (A-78) 
\j De Se 
es ar 


where subscript c denotes the core and subscript r denotes the reflector. 
Equation (A-78) is written for the same reflector properties on both sides 
of the core. For the condition at hand, the properties of the two plenums 
are quite different because of the change in density of the water coolant. 
To account for this, the thermal savings * is approximated as follows, 
remembering that the index J = 1 refers to the lower plenum and J = M, 


refers to the upper plenum. 
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= Ts 2 
gD) Bo! wees 4 (a-79) 
' T ry ar aw ¥ . = a 2. ee 
- VD (T,1)2, (Iy1) / DI(I,M,)S a (I,J) 
With this definition, the axial buckling for the thermal group is 


determined from 


ef wi 
Ba (I) = i ’ tap 5 (A~80) 





The cross section for the axial leakage when the radial flux calculation 


is performed then is defined by 
rT T,. _ =P 
2g(t) = DI) EY ir) (A-81) 


Again, all values of 3 (1) are positive, so equations (A=-15) are used. 

in the radial reflector, the buckling and leakage cross section for 
the thermal group are assumed to be equal to those for the fast group so 
that equations (A-76) and (A-77) define the thermal properties for this 
region. | 

The assumptions irmvolved ic equations ‘A-76) and {A-80) have been 
compared with more precise calculations. The method of this latter 
calculation followed the pattern established in the preceding section. 
This simply involved rotating the direction of calculation 90° from 
that in the preceding section and proceeded by determining the integrated 
flux in a radial region and the loss out the top and bottom faces of the 
reactor by integrating the currents out over these areas. The results 
of the two methods were sufficiently close to permit the use of equations 
(Ae76) and (A-80), simpler formulations which take less computer calculation 
time. 
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A.l4. Energy Dependent Cross Sections 

The program has beén formuiated as a twoegroup problem. The 
mathematical treatment for a higher number of groups simply ine 
creasés the number N appearing in (A-12), but does not change the 
methods discussed in all previous sections. The number of groups 
was selected as two to give a representative picture of the power 
distribution and at the same time to hold down the computation time; 
two groups are also necessary, in this latter connection, to keep 
computer storage requirements to a minimum, ore problem associated 
with the MiT system tape for the <eM 7090 which limits the core 
storage available to the programmer to roughly 24.5K registers. 

To determine the energy dependent isotopic microscopic cross 
sections of the celi constituents, the program GAMe1 was a, The 
spatially homogenizec densities of the constituents were obtained as 
discussed in the section "Homogenization of Guddivision Properties”. 
GAM=-]1 provided the isotopic microscopic cross sections of the fast 
group J = 1 for fission, absorption, traasport and downscattering 
and the number of newtrons produced per fission for fuel material. 

These microscopic cross sections were then used to define the macro- 
. scopic properties of the different cell regiozs (Figure A.2). 

The thermal absorption and fission cross sections were obtained 
by averaging over a Wilkin's spectrum with the use of a program 
available at MIT known es THERMIT. The density inputs to this program 
were also determined by the method previously described. The as 
cross section for each of the isotopes were taken from BNI-325 3; fission 
cross sections, in the cass of fuel material, also came from this report. 


The individual scattering cross sections of the different isotopes were 
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assumed to be constant over the thermal range. The results of 
this calculation provided the thermal macroscopic properties of 
the different cell regions. 

. Within the core, the density of the coolant changes. This 
consequently changes the shape of the two flux spectrums determined 
in GAM-1 and THERMIT and also leads to an infinite number of 
combinations of cell cormstituent densities and cross sections. ‘The 
approach taken in this study has Seen to define an average coolant 
density in the core by assuming a flat power distribution and a 
given reactor power level. Since all other physical densities 
within the cell are fixed, the cross sections applicable to a given 
reactor size, power, and inlet flow conditions are based on this 
méan coolant density. When the reactor power distribution is 
defined, the only spectral influence to the flux determination occurs 
through the variation of the coolant density and the resultant change 
in the macroscopic properties of cell regions 1 and 5. The microscopic 
cross sections are assumed not to change. 


A.15.__Evaluation of the Mean Chord length for Resonance Absorption 


ee a 





The geometry of a fuel element influences the magnitude of the 
resonance absorption cross section of any fertile material, which is 
included in the element. In the bey maifice for resonance absorption, 
there is a strong selective absorption as the neutrons proceed into the 
fuel, away from the moderator. This decrease of the resonance energy 
flux reduces the effect of the resonance material within the fuel element. 
To account for this decrease in effectiveness, the effective resonance 


integral Terr for a fuel element is often expressed in the form 
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Ilere = A + B (S/m) (A-82) 


where A and B are experimentally determined constants, dependent 

on the material structure of the element, and M and S are the mass 
enclosed within the surface and the surface area of the element, 
respectively. For a given density of the fuel material, the ratio of 
(M/S) represents a characteristic dimension of a solid fuel element. 

When the fuel element is an annular cylinder surrounding a 
moderator, the calculation of the spectrum dependent resonance 
absorption cross section becomes more undefined. The manner of includ- 
ing the effect of the fuel element geometry is dependent not only on the 
physical dimensions of the fuel, but also on the properties of the en- 
closed moderator. 

The method of determining the resonance cross section of the 
fertile material (238) has been through the use of the program GAM-1. 
The geometrical input, which characterizes the fuel element for the 
determination of the resonance absorption cross section, is the mean 
chord length 1 for a nextron transiting the fuel material. Although 
different methods have been proposed to account for the (S/M) ratio in 
4. formulation defining Iprr, a search of the literature reveals no 
analytical representation defining the mean chord length 1. In lieu of 
& more refined analysis, the following simplified model is proposed. 

Consider Yirst the case of a neutron with energy in the resonance 
range which enters the fuel from the region exterior to the annular 
Clement. As seen in Figure A.W, a plane of symmetry can be defined 
longitudinally through the element, which passes through the center of 


the element and the point of entrance. Then, as indicated in the figure, 
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NEJTRON ENTERS FROM 
OUTSIDE THE FUEL 


NEUTRON ENTERS FROM 
INSIDE THE FUEL 





CHORD LENGTH GEOMETRY FOR AN ANNULAR FUEL ELEMENT 


Figure A.4+ 


the possible angular variation within one of the symmetrical regions 
of the direction than can be taken in traversing the fuel element is 
from 0° to 90°. Assuming that the distribution over these possible 
angles is constant, the probability that a neutron will enter the fuel 


element such that its angle of flight lies between # and + af is 
| ed 7 
p(p) ag = oe (A~83) 


The length of the fuel material traversed (i.e., the chord. length) 
before the neutron leaves the fuel region, either going to the moderator 
filled circular zone in the interior or the moderator zone on the outside, 
can be written in terms of the two diameters d* and D* and the angle of 
flight g. When the inside diamter d¥ has a value greater than zero, there 


is a discontinuity present in the magnitude of the chord length as 9 
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varies across the angle 9,. Determining the chord length L Stora 
given angle $, the mean chord length in the fuel region is found by 
weighting the length at § by the probability of the flight at angle 
g, and integrating over all possibile values of $. The resultant 


expression is 


= 


as 


Po fa aes ar 
._ i { | cos = \ cos“f -~=1+da7*2 | ag 2 (° cos¢ ag 
m 70 Dre | a, 
(A-8),) 


#le" 


) | J Th 

When (a’/D°) equals zero, the fuel element is a solid rod, and 
the mean chord length for outside entrance (Lj 2 afr, As (a*/D*) 
approaches unity, (i,/o") goes to zero. For finite values of (a /D*) 
less than unity, the first integral on the LHS of (a-8h) cannot be 
evaluated in closed form. 

When the flight path is from the inside moderator across the fuel 
element to the outside moderator region, a plane of symmetry can again be 
defined. The possible variation of the angle 6 is from 0° to 90° and, 
if the distribution is assumed to be constant over this range, the 
probability that the angle of flight wiil lie between 3 and 6 + de 


is given by 


p(o) ad = 296 (A-85) 
it 
j 
The chord length 1; for some angle 9 can be evaluated also in 
% = am ; 

terms of d and D, and the mean chord length 1; is determined by 

weighting each possible length Ll, with the probability for the occurrence 

of this length and integrating over the range of 6° to 90°. The geometrical 


determination for the chord length 1, is simpler in this case, since there 





is no discontinuity caused oy sweeping across a tangent boundary 


angle. For the case of inside entrance, the mean chord length is 


given by 
wz (4/2 no 7 ae a. o 
i = 1 | ox Coss + y x” cos*6 + 1- x" |a@ (A~86 ) 
D® & lo ob : - 
where 
F _¥& 
H & (a*/o*) (A-87) 


In the limit of (a”/D") going to zero, the value of (I, /D’) 
approaches pD /2. As (a /D*) goes to unity, the mean chord length (I, /D") 
goes to zero. 

For any given set of conditions, the mean chord length for a neutron 
transiting the fuel region is fixed. But as just seen, the calculated 
value of the geometrical length is dependent on whether the point of 
entry to the annular fuel region is from the interior or exterior 
moderator region. To resolve this difficulty, it is necessary to postulate 
a physical model which predicts the mear chord length for a resonance dedgtaem 
entering the fuel from either moderator region. 

Diffusion theory defines the resonance neutron current in the positive 


radial direction as 


oe f- 2 UE ‘ee 
e ifr 


and in the negative radial direction as 


= LD y - 
Fro f g 5 is (A-89) 


% 
Denoting 3* (a /2) as the outward directed current at the inside radius 
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of the fuel tube and & (Dp /2) as the inwardly directed current at 

the outside radius of the fuel tube, the fraction of the total number 

of neutrons entering the fuel tube from the exterior moderator region 
| 


is given by 


Fraction entering from Dap’ /2) ; 
the outside region f, Fence ee (A-90) 
ST orbs 7 e ’ of * 
Dd’(D /2) +a T*{a /2) 
With this definition, the mean chord length can be written as 
gens y_ — 2» & — R 7 
(7p) = f, (L/0) + £, 1,/o) (A~91) 
where 
f,; = 1.0 -f, (A-92) 
Unfortunately, the current values have to be determined from the 
spatial distribution of the resonance flux. The flux distribution is 
dependent on the resonance cross section, which is the quantity that is 
ultimately to be determined after defining a méan chord length, so the 
problem is of an iterative nature. 
if it is assumed that the current valves at the inner and outer 
boundary are equal, the fraction of neutrons entering from the exterior 
moderator region is given simply by 
fo = 1.0 — a 
1.0 + (a"/p’) (A=93) 


This assumption postulates that the number of neutrons entering from 
éither the exterior or interior moderator region is proportional only to 


the surface area of the outside or inside fuel material boundary. 
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As a first approximation, this assumption has intuitive appeal. 
The direction of the érror which it introduces into the calculated 
chord length and resonance cross section can be demonstrated as 
follows. The boundary conditions for a radial plot of the resonance 
flux require that the flux have zero current at the origin (center 
of the enclosed moderator region) and at the edge of the exterior 
moderator region. Consider that the fast flux is constant across 
the cell, that the resonance souwce terms in the separated moderator 
regions aré equal, and that there is no source term for resonance 
neutrons in the fuel region. All slowing down takes place in the 
moderator regions. The downascattering cross sections in the two. 
moderator regions are assumed to be equal and represent the "absorption" 
cross sections for these regions. The resonance absorption cross section 
in the fuel is assumed to be larger than the moderator cross sections. 

With this set of conditions, woich represent the physical situation 
quite reasonably, it can be demonstrated that the current x*(a’/2) is 
less than 2°(D /2). Theis result shows that the value of fos as 
determined in {A-93) is GOO nigh. As previously shown, the value of 
(1,/0") is greater than (TZ, /2") when fa*/p" 5 is zero. Table A. 
indicates that (T,/p") is always greater than (ZL, /o") for all values of 
(a°/0*). The assumption of equal currents predicts a value of mean chord 
length, which is high. Thus, the calculated resonance absorption cross 
séction will be low. 

When defining the effective resonance integral Lerr for the condition 
of a hollow fuel element filled with a moderator, it has been suggested 
that all the material within the exterior fuel surface be homogenized. 


This procedure thus desraases the density of the resonance material by 
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MEAN CHORD LENGTH FOR AN ANNULAR FUEL 


ELEMENT AVERAGED BY EQUATION {A-93) 





(a"/p') (T/o") (7, /D*) (7 /D*) 
0.0 0.6366 5.5000 0.6366 
0.1 0.6023 0.4669 0.5900 
0.2 0.5629 0.4313 0.5410 
0.3 , 1065154 0. 3931 0.4895 
0.4 0.4685 0. 3520 0.4352 
0.5 0.4129 0. 3080 0.3779 
0.6 0. 3510 0.2604 0. 3170 
0.7 0.2820 0.2037 0.2518 
0.8 0, 2044 0.1516 0.1809 
0.9 Gelisl 0. 0865 0.1016 
1.0 0. 0000 0.0000 0.0000 


. = oe 3 * o 7 = Q So Se 


considering it to be distributed over a larger volume. If at the 
same time, the chord length wars calculated on the basis of a solid 
element, the net resuit would be to doubly decrease the magnitude of 
the resonance cross section. 

By calculating the density of resonance absorbers, based on their 
actual physical density in the fuel @lement, and the chord length, as 
predicted by (A-91) and (-93), the two inputs for the resonance 
Calculation cause opposite effects and tand to cancel. The determination 
of the final discrepancy would require a more exact analysis and is beyond 
the scope of this thesis. 

Aol6. CGriticality Determination 

Whether a given assembly of cells will sustain a nuclear chain 

reaction is determined from the results of the radial flux mapping across 


the mid-plane of the reactor. If the reactor under consideration is just 


critical with an effective multiplication factor Kerr of 1.0, then the 





total neutron production within the reactor is equal to the total 
absorption plus leakage out of the top and bottom faces of the 
reactor. For values other than unity, K ff is defined by the 


integrations across the ractor as 


Kart = ool (A=9h ) 





From an arbitrary value of kee, obher than zero, the concentration 
of a poison distributed somewhere within *he — is assumed and this 
concentration is added to the adsorption cross section. Given an assumed 
value of the concentration and some desired kp the problem can be solved 
by Bitedeofacerrer to within specified limits of convergence to define 
the magnitude of the concentration. 

With the method of calevlatior followed, how this “mathematical” 
poison is put in the reactor hss a physical counterpart. For the case of 
@ burnable poison, the intuitive approach is to load a cell region with 
the assumed poison. Most probatly, the ceil region containing the poison 
Woald be the solid moderator region. Through the homogenization of the 
cell propertiss to define the reactor subdivision properties, the effect 
of the poison enters. Un the other hand, when synthesizing a ring of 
control rods around the reactor centerline, the approach would be to load 
the poison directly ints the specified radial region and proceed with the 
calculation of (A-9)'. 

A.l7. Errors 
The effect of initially assuming a two-dimensional rotationally 


Symmetric characterization for the flux and nuclear properties would not 
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introduce appreciable ertor lato the problem unless the reactor 
) 

operator had, for some unforeseeabdis reason programmed the control 
rods to cause a large skewing of the flux or that the distritation 
of fuel around the centerline had considerable variatior. The major 
error is introduced through the assumption of a product type flux 
representation. 

This error becomes more severe Aas the corner regions of the 
core are approached. A true two-dimensional representation of the 


flux would show more peeking of the toermal flix in this region than 


as predicted by this mod*el. This effect is brought more clearly by 


mapping the flux in the axial direction for a one radial subdivision 

core, The exact magnitude of this error cannot be readily stated, 

since a program for comparing the model developed here with a twoe 
dimensional mod#l is not availlatle. Any power peaking radially 

across the core is accentuated ty this lack of correct representation, 

if the peak power is in the central region of the core. From the stand- 
Point of conservatism, this limite the core performance and underestimates 
the ability of the core to provide 4a given power, sibdject to certain 
éogineering constrairts. 

The energy produced per fission is assumed to De confined to the 
Point at which the fission occurred. This usglects the effect of heating 
im the solid moderator region ty siowing down and gamma heating and the 
effect of gamma heating in the raflector. This assumption places more 
Stringent requirements on the coolant to remove heat from the fuel region. 
Bat it also imposes a requirement to remove heat from the moderator and 


Teflector. The amount of energy involved for this requirement is of the 
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order of 10 - 15 Mey out of approximately 200 Mev recoverable from 

*h fission that occurs. This assumption introduces ar error in 

the calculated power distribution of approximately 64. 

The effect of axial fiux streaming when homogenizing the 
Reastitnents of a céll bas aiso teen negiectsd. More error is introduced 
ee those regions in the weighborhood of the plienums than in the interior 
» regions. This is partieularly tree for the fast flux (group 1), 
which follows, more or léss, the usual cosine representation. A he 


mensional description tere would alss furnish more exact knowledge 


—_ = 


has been assumed oy the purely one-dimensicral mathod of homogeniz- 
lag toe different reactor sundivisiog cell properties, 

Other errors have been mentioned throughout this Appendix, which 
as a result of the simplifications necessitated by the limitations 


of Section A. 1. 


13. Credits 
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The programming of certain of the mathematical equations was based 


=, 


l the préviousiy written program AvM-5. Those sections of the program 


PR (Appendix G) of this thesis iovolved with the flux difference equations 


a their convergence were rewritten from ATM-5 to fit this problem. 
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$1. introduction 
The wall temperatures of ac avralar nuclear fuel element are 
controlled ty the local temperatures of the two counterflowing coolants 
surrounding the fuel elemert. The variation of the two coolant temper-~ 
atures is determined by the amount of power that is produced in a given 
length of fuel element, the fraction of this power which goes to the 
coolant stream inside or outside the fuel element, and the transfer of 
heat across the fuel element tetweer the coolant streams caused by their 
mperature difference. 

The temperatures gradients withic the fuel and cladding material are 
much steeper in a dirsction perperdicular to the direction of coolant 

low than in a direction paraliel tc it. The longitudinal temperature 
istribution is determized by the Longitudinal variation of the cladding- 


oolant interface temperesure and the variation of the heat generation 


Within a conducting region, the temperatures distribution is detere- 


ned by the Fourier heat conduction equation. 





he 3 8 os te. es 
re ed — “@ = 5 <> 2. a T ; as -_- = six s a : (Bol) 
2 — jr ez yo e a 


sh has been writter to indicate ths case of a rotationally symmetric 
tribution assuming a constant value of thermal conductivity k. Rota- 
mal symmetry is a result of the definition of the flux distribution 


[986 a particular axial position of a cell. 


Ysing the knowledge that the longitudinal gradients are not as 





steep as the radial ones, equation (1) can be written in the form 


1 eh rm (xr, ele. fitz) Pe) (B~2) 
r way 


























where H(z) is the total beat production in a ucit length of fuel 
element ceatered at axial position = and fir ,z) is a normalized shape 
function for the radiai distribution at height z. Equation (B-2) can 


be integrated to yieid the expression 
’ % = : ry 
Tir,Zzjy 2 3y(2) intr) + Satz) = Ala) 33 fr .29 (Bu3) 


‘The radial “constants” Sy and Sp are evaluated by the appropriate 
boundary conditions specified by the coolant temperatures or heat 

fluxes. C3 is found vy performing the mathematical operations indicated 
in (8-2) on the shape factor fir.z 

To estimate the érzrors involved with the assumptions that are made 
in (B-3}, consider the following «merical example. A solid fuel element 
f diameter 0.1 feet and thermal conductivity k - 1.0 Btu/hr/ft/OF is 
sumed to be producing heat uniformly at the rate of 100.0 Btu/hr/Fft 

f iength. This heat is removed or the outside by a coolant flow of 

O lb/hr; the coolent is assumed to have a specific heat of 1.0 Btu/1b/°F 
id to undergo no phase or flow pattern change, so the heat transfer 
efficient at the fueL - toolant interface is constant. 

Neglecting for the nonce the heat fiow axially through the fuel 
mént, the temperature rise of the coolant is found to be 10°F /ft. 

vé the heat transfer coefficient was assumed to be constant, this 
adient aiso represents the axial temperature rise in the fuel element. 


om (6-3) the radial temperature rise from the fuel-coolant interface 
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to the centerline is approximately Ar, which represents an average 
radial gradient of 160°F /ft. With these numbers, the amount of heat 
produced ir a one-foot length that flows axially out along the fuel 
material is approximately 0.08%. 

When a phase or flow pattern change occis in the coolant, or 
the longitudinal variation of heat production changes in the fuel, 
a change occurs in the axial gradient. This variation does not 
introduce any appreciable error in the formulation (B-3). However, 
at the ends of the fuel material, a step change is made in the heat 


production rate (for a reactor with axial reflectors) and a local 


error is present. This error is confined to a relatively short 


segment of fuel material, approximately two diameters in length. For 
&@ reactor which has an upper and lower coolant plenum, which are adjacent 
to the ends of the fuel elements, the fuel temperature will be lower 
than those predicted by f£-3>. 

The spatial distribution of héat production across the fuel 
material is determined by equation (Au3), a one-dimensional representation 
which is assumed to be rotationally symmetric and found from the solution 
of the flux difference equations. The one-dimensional counterpart of 
(B-1) could also be written in terms of a difference equation by utilizing 
the discrete heat generation valsues at the different space mesh points. 
For the problem at hand, it is desirable to define the radial heat 
generation rate across the fuel in terms of a continuous function. 

A polynomial has been chosen to represent the distribution of the 
heat generation rate. 25 order to reduce the order of the polynomial 
which is necessary, the discrete vaiues of heat generation rate have been 


fitted by the method of least squares. This leads to a functional 
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relationship of the form 
n 


. L-1 
H(r,z) = H(z) 7 a,(z) rx (B-4) 
ar] 
in which Hiz) is heat produced per unit length and per unit time in 
the fuel material and the coefficients a,{z) in conjunction with the 
distance r define the shape of the power distribution radially across 


the fuel. The coefficients a,(z}) are normalized such that 
g n . 
= lel 
aif 3 ( 2. ar )radr 21 (B-5) 


where Ro and R, represent the geometrical limits of fuel material, as 
seen in Figure B.1, 

Cne reason for formulating the heat generation distribution in 
this fashion is because of the trial-and-error method of solution 
necessary to define the coolant temperatures and hence the fuel temper- 
ature. From the preceding nuclear calculation the shape of the distri- 
bution is known. With the shape defined, it is possible to determine the 
fractional heat split across the fuel, i.e., the fraction of total heat 
produced that goes either to the inside or outside coolant. Keeping the 
Shape factor constant, the problem can be reiterated until the fractional 
neat split does not change, within specified convergence limits. The 
change between these iterations then is only influenced by the variation 
of the coolant states and their associated heat transfer coefficients at 
the two cladding-coolant interfaces. 

The second reason for formulating the heat generation shape distri- 
bution in this manner is to reduce the necessary computational time. 


When determining the coefficients a,{z) in equation (Z-4), the following 
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set of n simultaneous linear equations are necessary in making 


the least square fit of the m points in the fuel. 


A= B (B-6) 
It joe 
xij = Ty (B-7a) 
a ae: 
$ juan), 
by = al Py, ry (B-7b) 


The coefficients of A are the desired values of the fitted coefficients. 
Equation (B-6) can be * soornaas by a triangularization method similar to 

a Gauss-Jordan reduction. This method is well-suited to computer program- 
ming techniques. 

Once the distribution of heat generation across the fuel is known 
and the fraction of the total heat produced going to either of the two 
coolant streams is determined, the fuel temperature profile can be 
calculated using (B-3). 

In defining the conduction equation, it has been tacitly assumed 
that the thermal conductivity k in each region is constant and has been 
determined such that it represents an average of the total regional 
variations. 

Figure Bl shows the geometrical distances involved when calculating 
the temperature profile across the fuel. Cross-hatching at the interfaces 
indicates a temperature discontinuity represented by a heat transfer 
coefficient. Between the fuel and cladding, the temperature discontinuity 
is caused by gas accumulation and noneperfect contact between the two 


materials. 
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GEOMETRY FOR FUEL TEMPERATURE DETERMINATION 


FIGURE B., j 
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Boe. Fuel Temperatures at the Cladding=-Fuel Interfaces 

Let Soy and Qs be the heat flowing per unit length and per unit 
time to the inside and outside coolant streams, respectively. Using 
the concept of thermal resistances, the temperature differences between 


fuel temperatures at the fuel-cladding interfaces can be written in terms 


of Q, and Qe, and the heat transfer properties defined in Figure B.1] as 





™, -T, = Q In({Ro/R1) 1 

eo Sf ok in\Re/R1) ‘| (3-8a) 

133 = Ts Pe fy l re 1ni 5/83) rn 1 | (B-8b) 
at | Riyby iy si) 


In equations (B-8), equivalent heat transfer coefficients can be written 


for the bracketed terms such that 


Bm. 1 , wlP/r) , _L. (Be9a) 
Rohs Ryh, Ko Roh; 








1 ln 
ost, me) , 1 inl 
R3h3 Ry hh Kk), R3hy 





At this point, define the temperature difference across the 


fuel material, a value needed in the next section. 


Bee Tse (T5-T)) 4 % <A ae (B-10) 
27R3h3 eTRoho 
B.3e Determination of the Heat Flow Fraction 
At some given height in the cell, the temperature distribution 
is defined in the fuel material by (B-3), where the quantity C3 is 
determined from the polynomial representation in (B-4). When the 
mathematical operations have been performed, the fuel temperature T(r) 
is given by 
= a) al 
T3(r) = C,1n(r) + Co = = zi ajr : (B-11) 
i= ico: al 
3 Lk Gaye 


To determine the fuel temperature, both C; and Coy must be evaluated. 
For determining the fraction of heat going to the outer channel, only 
the integration constant Cy needs to be evaluated. To find C,, evaluate 
(B-10) at rs R3 and r = Ro, take the difference of the two expressions 


and solve for Cr>5 yielding 


eto s == ley (Rg oR, +) 
In(R3/Ra) k31n(R3/Rp)  te1/(F]/2 (B~12) 


The quantity Qs can be evaluated as 


Q@ = = 2R3 ky __at3(r) (B-13) 
dr r = K3 
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which permits writing C, in terms of Qs. 


i+1 
Ge FE = aR | 9 
os . = &5 - 
ke i=l (i421) a (B-14) 
In steady state, 
Q1 + Qs = 4H (B15) 


Eliminating C, from (B-12) and (B-14) and using (B-10) to replace 


the fuel temperature difference gives 


1 Q 1 Q 
~ 2 . iE 
2 k3 2fin(R3/Ro) Rhy 2in(R3/Ra) so 
j n 
ee eS ea 1 S| ons | (B-16) 
+ eee 7 
In (R3/Rp) kg dsl | WTF 


s H 2 
‘7 (R3/Ra) iI = “T<— } 


Qipcan be eliminated from (B-16) using the result of (B-15). 
Before solving for Q5, it is advantageous to define an effective thermal 
conductivity k, between the two bulk coolant temperatures. This value 


is defined to be 


+ cathe (B17) 


Roba 3 R3h3 


ire 


" 1 In (R3/Ro) 
eS 


Using this definition, Q5 is specified. 
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H = 2 Ritl 
Q5 as ~ 27 kK, (T, 2 T1) - ae + a H 1n(R3/Ro) = 7 ie = 
h-- (B-18) 
-onteqp =] | 81 Rott) | 
"ig © is Rey (Rs ‘i 


The first term on the RHS of (B-18) represents the heat flow per 
unit length and per time that would take place in a conventional counter- 
flow heat exchanger. The remainder of the terms on the RHS determine the 
heat flow to the outer coolant stream, dependent only on the relative mag- 
nitude of ae iene) barriers which are encountered and the shape function 
of the heat generation rate. The fraction of heat produced in the fuel 


material, which goes to the outside coolant channel, is given by 


i+1 = i+1 
1n seen R in(Ra/Re) [ aiR a;R 
$ este iel tn ahs = Cit) 


3 fa i+1 i+] 
95 . K3 fay L(it1)? AS | } (B-19) 


n 
1 =| i+ | 
Ke i=l cist) (Ry a Ro”) 


B.4, Influence of Fuel Thermal Conductivity on Heat Flow Fraction 


= = " 5 = ee ee ee ee Oe eee 





An effective thermal conductivity kK. of the material separating the 
two coolant streams was defined in (B-18). This was shown to be made up 
of three terms, one of which directly related to the thermal conductivity 
of the fuel material and the remaining two to the cladding conductivity 
and the interface heat transfer coefficients. 

To demonstrate how the heat flow fraction is influenced through the 
relative magnitude of k3, consider the two cases when k3 = 1.0 Btu/hr/ft/OF 
and k, = 25.0 Btu/hr/ft/OF. The first case has a value typical of a 


ceramic fuel, such as U0>, while the second is more representative of a 
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metallic fuel. Arbitrarily, assign the following values to the other 
geometrical and heat transfer parameters. 

(Ro/R1) = 1.1 

Ro = 0.02 ft 

(R3/Ro) = 3.0 

(R,/R3) = 1.05 

Ky = Ky, = 10.0 Btu/hr/ft/F 

hy = ho = ha = hy, = 1000.0 Btu/br/ft?/F 


Using the assumed values, the following numbers are calculated. 





oie |. @.1145 1 _ 0.0375 

Rabe aae3 

1n(R3/Ro) = 1.1 1n(R3/Rp) = 0.044 
k3 k3=1.0 k3 k3=25 


When kz has a low value, it predominates in the expression for k, and 
the heat flow faction to the outer coolant channel becomes relatively 
unaffected by the heat transfer coefficients at the cladding - coolant 
interface. If k3 is large, the reverse is true. The heat transfer flow 
~fraction is, of course, influenced by the shape of the heat generation 
rate across the fuel. 
B.5. Limiting Case for Heat Flow Fraction 

If the fuel has a low thermal conductivity, a simple relationship 
can be derived for the flow faction to the rate coolant when the assumption 
is made that the power distribution is constant across the fuel material. 
With the assumption of a flat power distribution, only the polynomial 
coefficient a, has a finite positive value; all other coefficients are 


identically zero. For these conditions, equation (B-19) can be simplified to 
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~ (x21) + x21n(x2) 
(x@-1) In(x©) 


where _ 


x. (R3/Ro) 


The variation of (Q5/H) for this condition is shown below. 


1.5 2.0 25 _ B® 


HEAT FLOVY FRACTION PREDICTED BY EQ. (B-20a) 


FIGURE B.2 


B.6. Fuel Temperature Distribution 

When Q, has been determined in (B-19), the integration constant 
Cj can be found in (B-14). Once C, is Known, the second integration 
constant Co can be found in (Be11) from evaluation with the fuel 
temperature at either fuel - cladding interface. The temperature distri- 


bution at any point in the fuel is then identically fixed with (B-11). 
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(B-20a ) 


(B-20b ) 





B.7. Fuel Temperature Distribution when Outside Coolant Flow is Blocked 
As a limiting case for this situation, it is assumed that the 

temperature gradient is zero at the position r = R3 and all heat 

produced in the fuel leaves radially at r = Ro. When this occurs, 

the fuel temperature T3o at r = Ro is given by substituting H in (B-8a) 


to give for T 30 


T32 = T, + ae (B-21) 


The boundary condition on the slope at r = R3 requires that 


* i+1 
GQ = HZ EE: (B-22) 
R3 isl (i+1) 


The constant Cy is evaluated at r= Ry to yield as the expression for 


no cooling on the outside fuel surface 


Nn 
i 
T3(r) 4 Tz. 4 Hin(r/Re) 2D aR 


k3 tel “Gti (B-23) 
Ss i+] 
3 isl aj (r*+1p, | 
ae a (ie) 


B.8. Fuel Temperature Distribution when Inside Coolant Flow is Blocked 

This situation is just the reverse of the preceding one. Now the 
temperature slope is assumed to be zero at r = Roy so that all heat 
produced in the fuel must be carried away by the outside coolant. This 
condition results in the expressions 


T. T H (B-2)) 


T(r) =<T Hl _ |v) a a ae a s salt © s) (B-25) 
r = n =2 


162 





APPENDIX C 
HEAT TRANSFER AND FLUID FLOW 
Ci Introduction 

The magnitude of the two coolant heat transfer coefficients plays a 
determining role in defining the heat flow fraction for the power produced 
in the fuel tube which goes to the two coolant streams, Because of this ine 
fluence, a consistent and reliable method must be employed in order to prop= 
erly size the dimensional parameters of the fuel tube and coolant channels 
to achieve the desired steam exit conditions. 

As indicated by equation (B-19), the formulation of the heat flow frace 
tion is more properly expressed in terms of thermal resistances, rather than 
conductivities or “heat transfer coefficients." The following sections pre- 
sent selected correlations used to predict the heat transfer coefficients and 
the temperature differential between the bulk coolant and heat transfer sur- 
face for a given heat flux, The temperature differential is directly pro- 
portional to the product of the effective thermal resistance (defined from 
the "heat transfer coefficient") and the heat transferred per unit length of 
coolant channel. 

Convective heat transfer is functionally dependent on the velocity or 
flow profile of the coolant. This dependence is particularly noticeable at 
transition points for two-phase flow, in which the flow pattern undergoes rela- 
tively sharp changes. The coupling between flow profile and pressure drop is 
represented through a force equation written for an elemental length of 
coolant channel, For two-phase flow, a description of the velocity profile 
is necessary not only for heat transfer but also for pressure loss calculations. 


perties of Water and Steam 





When describing the heat transfer coefficients or thermal resistance at 


k thermal conductivity, 


the coolant-heating surface interface, the quantities 
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u dynamic viscosity and c specific heat at constant pressure appear. Addi- 
tienally, either the specific volume v or density A and surface tension & may 
be required in the physical correlation, In the subsequent discussion, the 
liquid phase will be denoted by subscript f and the vapor phase by subscript 
Ro 

The data for the values of specific heat ¢ and specific volume v have 
been taken directly from the "Steam ace | The values associated with a 
given value of pressure and enthalpy, these two being necessary to completely 
specify the thermodynamic state of the coolant, are obtained by linear inter-= 
polation, Internally, the program reads in as data a set of steam table cards 
encompassing the region from 100 °F to the critical pressure and from 100 to 
1500 psia over a selected range of 14 temperatures. The value of specific 
volume v is determined directly by interpolating between successive spanning 
data points. For the specific heat at constant pressure c, the quantity is 
calculated for the coolant, when it is in the subcooled or saturated state, by 

Ep & wfsdth Od Ca 
nl 

where Hp 4344 and He j are the enthalpy values of saturated liquid above and 
below the actual liquid enthalpy and T5344 and T; are the corresponding temper- 
atures above and below the point. Defining the specific heat for the liquid 
in this manner is not quite correct, since there is in fact an increase in 
Pressure P between the points Tj and T5410 ; 

The value of the specific heat at constant pressure for the vapor cp 
is calculated by two-way linear interpolation. The pressure is held constant, 
thus introducing only the error associated with the assumption of linear vari- 


ation between the four points, two pressure and four enthalpy, circumscribing 


a 
r 


the actual state point. 


The variables ¢, k and u have been determined by making least square 
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fits yielding a polynomial representation for their values at a given pres- 
sure and phase, if appropriate, as a function of setehrmeny * In this 
representation, the variable 

T' = 1/100 (C=2) 
has been used. Tis the bulk coolant temperature in degrees Fahrenheit. For 
each of these quantities, represented generally by the symbol X, the describing 
polynomial is written as 

X = Ay + Ap T™ + Ag Tt? + Ay TH3 (C-3) 

The polynomial coefficients are dimensional. The respective units arising 

for these variable definitions are: 


‘on lb/ft 
k Btu/hr/ft/°F 
u lb/hr/ft 


Coefficients for the liquid phase properties are given in Table C.1. 

The liquid viscosity ug can be represented by only one curve, defined at the 
saturation point, between the saturation pressure and 5000 psia to within 

+ 5%. For the case of thermal conductivity, the value corresponding to pres 
sures above and below the actual state pressure is calculated and linear 
interpolation is used to define the state point conductivity. 

The dimensional coefficients for the polynomial representation of the 
vapor dynamic viscosity and thermal conductivity are given in Table C.2. 
Again, linear interpolation is used to define the values, when the polynomial 
coefficients are pressure dependent. 

The methed of interpolation is illustrated in Figure C.i. Consider that 
it is necessary to find the value of the vapor viscosity at the state 1300 
psia, 600 °F, A glance at the steam tables reveals that the saturation tem- 
Perature at 1300 psia is 577.46 °F. Thus, the state point lies between the 


Saturation temperatures at 1000 and 2000 psia. For this particular set of 
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Table C,.1 


POLYNOMIAL COEFFICIENTS DESCRIBING LIQUID HEAT TRANSFER PROPERTIES 





Quantity Ay Ao A3 An 

c 5.274 x 107° 33,448 x 10°? 31,435 x 1077 1.457 x 1078 

k (saturated) 3.153 x 10°71 6.137 x 10°? =1,186 x 10° 1.632 x 107" 

k (1000 psia) 3.153 x 107! 6,166 x 1074 =1.136 x 10° 6,842 x 107 

k (2000 psia) 3.217 x 107! 5.488 x 107 =8,766 x 1072 =1.601 x 107" 

u (saturated) 3,049 =1.849 4,046 x 107! =2,974 x 10° 
Table C.,2 


POLYNOMIAL COEFFICIENTS DESCRIBING VAPOR HEAT TRANSFER PROPERTIES 


Quantity 

k (saturated ) 
k ( 250 psia) 
k (1000 psia) 
k (1500 psia) 
u (saturated ) 
u ( 
u (1000 psia) 


0 psia) 


u (2000 psia) 


Aj 
=34289 x 107? 
1.639 x 1074 
8.672 x 107° 
1.703 x 10°! 
1.319 x 
1-939 x 


7.692 x 


4072 
107* 
1074 


2.074 x 107! 


A2 
1891 70x 
70114 x 107% 


107 


=2.010 x 10° 
a4. 385 x 107* 
1.419 x 107° 

6,546 x 107 
=3,426 x 1072 


=3,684 x 107° 
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A3 
~3.171 x 107? 
1.215 x 107+ 
2.221 x 1073 
4,487 x 1072 
=3.571 x 1079 
=3.158 x 107% 
3.569 x 1077 


3.743 x 1072 


Ay 
32537 Xx 
= | o 341 x 


107% 


1076 
=7.211 x 107? 
=1,443 x 107% 
5.185 x 107+ 
1.243 x 1079 
9.390 x 


@1.194 x 


1077 
107% 





Saturated Vapor 


Viscosity 
(lb/hr /ft) 





544.6 600 635.8 670 


Temperature (°F) 
INTERPOLATION METHOD FOR DETERMINING VISCOSITY OF VAPOR 


Figure C.1 





coordinates, the viscosity is found by calculating the viscosity at the po*nts 
along the curve u (1000 psia) and along the curve u (saturated). At 600 °F, 
the saturation pressure of water is 1542.9 psia. The viscosity at 1300 psia 
is found by interpelating on pressure between these two points. 

On the other hand, fer the point at 1300 psia, 670 °F, as shown on 
Figure C.1, the viscosity at 670 °F for the curves u (1000 psia) and u (2000 
Psia) is calculated. Interpolation on pressure to 1300 psia is then performed 


between these two lines of constant pressure. 








The study of non-boiling heat transfer has resulted in different corre= 
lations which predict the temperature difference between the heated surface 
and the bulk coolant, The general form for these correlations is basically 


the same. Functionally, their variations result from the consideration of 
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the temperature-sensitive properties of the coolant and the mathematical 
description of the velocity profile in the turbulent stream. 
The commonly used representation of the forced convection non=boiling 


2, 
turbulent heat transfer coefficient is given by the Colburn equation 


Nu = 0,023 Re°°® ppt/3 (Cott) 
expressed in terms of the dimensionless groupings of the Nusselt Nu, Reynolds 
Re, and Prandtl Pr numbers. Written in terms of dimensional parameters, the 


Colburn equation predicts the heat transfer coefficient h as 


hc = 0,023 (k/D) (vD/vu)°°? (eu/k)'>? (C=5) 
The average bulk coolant velocity V and the hydraulic diameter D are the 
new symbols appearing in {C-5). The velocity V and specific volume v define 


the mass flux G, 


G = v/v (C=6) 
Thus, the wall temperature of the heated surface T,, is determined in 
terms of the bulk coolant temperature T., the heat flux at the wall (Q/A) 


and the Colburn heat transfer coefficient hc. 


Tw = Te + (Q/A)/hc (C=7) 

For the first pass flew of the CFR core, the flow path is annular 
With the majority of heat supplied to the coolant by transfer across the 
inner surface of the flow channel, A small percentage of heat is also gen- 
erated in the solid moderator region, due to gamma heating and the kinetic 
energy of neutrons as they are slowed down. This heating is neglected, thus 
imposing more stringent demands on the heat transfer surface separating the 
fuel material and the first pass coolant. 

‘he effect 3 the annular geometry can be neglected without appreciable 


loss in accuracy. Using 
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ha = 00020 (ro/rq)1/2 pee8 ppt /3 (C-8) 
where To and rj are the outer and inner radii defining the annular region 
and Ba a corrected heat transfer coefficient for an annular region heated 
on the inner wall, it is apparent that the ratio (r,/r;) does not apprecia- 


bly affect the unmodified Colburn heat transfer coefficient he (G25) until 


(ro/r3) ZB (0.023/0.020)2 = 1.323 (C=9) 
For the CFR core, the value of (r,/r3;) is not reached at which the annular 
effect causes a significant variation in the heat transfer coefficient pre- 
dicted by (C-5). Non-boiling heat transfer coefficients are subsequently 
predicted using the Colburn formulation (C=5), 

The heat transfer coefficient for vapor flowing down through the ine 
terior of the fuel tube for the second pass heating can also be predicted 
by (C=-5). In this case the geometry is circular with heat added to the 
coolant from only one wall. This situation is similar to that previously 
considered, except that the one-phase ceolant flow is now all vapor rather 
than pressurized or subcooled water. 

More detailed predictions of the heat transfer coefficient for water 
Vapor appear in the literature. For example, one recent proposed correla- 


tion for steam is given by 


Nu = 0.0157 Raeeot pr /3 (L/D)? (C=10a) 


when the length L falls in the range 6 < L/D < 60 and 


Nu = 0,0137 Re?*84 p,1/3 (C=10b) 
for L/D? 60. In equations (C=10), the properties of the steam are evalu- 
ated at the mean film temperature (i.e., at 0.5 Te + 0.5 Tw). Checking 
these correlations against the sxperimental data from which they arose 
results in a prediction quoted to be valid to within + 10%. On the other 
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hand, it was found that when the Colburn equation (C=5) was used, the prop= 
erties also being evaluated at the mean film temperature, the predicted value 
f hc was 11.5% high at Reynolds numbers in the region of 2.5 x 104 and 1.8% 
high at 3.7 x 107, Because no significant increase in accuracy results from 
going to correlations other than the Colburn, equation (C-5) is retained and 
used in predicting one-phase heat transfer coefficients. 

C.4 Incidence of Boiling 

When the coolant is in the compressed liquid or subcooled state, boiling 
can occur at the heated surface, providing the heat flux and wall temperature 
are high enough to produce bubbles with the requisite amount of superheat. 
For the case of subcooied boiling the bubbles, formed at the heated surface 
and swept into the coolant stream, collapse when the bulk coolant temperature 
is below the saturation point, resulting in a net steam quality of zero. 

When the wall temperature is sufficiently higher than the saturation 
temperature of the liquid coolant, the coolant at the wall may possess the 
necessary amount of superheat to produce bubbles. When this situation exists, 
the mode of heat transfer changes and the Colburn equation is no longer ap= 
plicable. 

Several empirical formulations have been preposed to predict the requi- 
_ Site wall temperature or heat flux necessary to produce vapor bubbles at the 

wall. McAdams fitted the results of experimants at 90 psia for an internal- 
_ ly heated annulus of 0.25-in, ID, thickness 0.09 to 0.26-in., for 20 to 150 


Y subcooling when the upward coolant velocity was between i and 36 ft/sec by 


| 0.26 
} Tw = Tsat = 1.97 (Q/A) (Co11) 
Buchberg has proposed a correlation for subcooled water in a 0.26-in. ID 
7 
| type 347 stainless steel tube at 2000 psia as 
(Q/a) = 0.0027 (G°°%/p%?) (149°) (646 = Te) (C~12) 
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Utilizing ths Coiburn eauation and McAdams correlation, the incidence 


‘of boiling is pradistsd whenever 


Te + (Q/Ad/ng BD Trat + 1.97 (aq/ayo-26 (C=13) 


For the set of assumed values: 


Te = 500 °F Teat = 544.6 OF (1000 psia) 
G = 1.765 x 10°Xb/hr/£t2 D = 0,01667 ft 
he = 5310 Btufhe/ rte /2P 


0 He a ‘ “rit mart 4 Saye ms . . 4 Fam Ta 4 + 
bling occurs, as predicted by (C=13) eccording ts the mimerical inequality 


: i i 8 b fa Ae ie 
(Q/A)/53740 > Mi & + 4.97 (Q/A)Y ? 
for the limiting value of (Q/A) yields a heat flux of 5.63 x 107 
pit’. Using the Girect calcuration +f tne Buchberg cofrelation, the 
a Ee Far . (ee eet) pee 
ie, Oc 4 us Fc BN, . > a ih Tale ieee | re Re 6. | ce res 103 D rp | a is LY e 
A cCmparison between McAdams' and Buchberg"s correlations for the as-= 
Beet Of values fiver above indicates that ne sienifiecant difference 
Deere Tk ee SRP AS LL LAS ace extrapclated to 1009 psia. Considering 


' : ; . 
cOrtelation is supposedly valid to within = 10% at 2000 psia, 


McAdams! correlation has been artibrarily chosen for the prediction of 


Baintidance of builing. On this basis, whensver 


To 2 Tsat + 1.97 (q/ay-%6 


(Q/A)/h¢. (C-14) 
al boiling is assumed to occur and the prediction of the wall temperature 
ing the Colburn fermula is no longer valid. 

Boiling Heat Transfer 

A sshematic representation of the heat transfer coefficient and flow 


file variation fer a once=through system (i.e., subcooled inlet, super- 


ted exit) is shown in Figure C.2. Thé more or less abrupt changes in 
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the heat transter coefficient over the saturated region signify that the 
application of any single corrslation to describe this variation is highly 
unlikely. Because of this, it becomes necessary to attempt to describe sep- 
arately each of the successive regions threugh which the heated coolant flows. 


The literature abounds in reports of the experimental and theoretical 


work that has been devoted to the study of boiling heat transfer, particularly 





over the period of the last ten to fifteen years. The wealth of material 
present has almost come to the point where bibliographies of biblicgraphies 
are being published. 

In order to make a partial comparison of the reports encountered in the 
search for a consistent and reliable method of describing boiling heat trans- 
fer in the CFR system, only a few of the many works encountered will be men-= 
tioned. The rapid advances of knowledge in this field may outmode the final 
selection that has been made hers. The choice of a suitable combination of 
correlations becomes extremely difficult, obscured by the fact that the major= 
ity of work that has been published was dene at relatively low pressures. Of 
those reports that present results at pressures applicable to the CFR system, 
the majority of work has been concentrated in determining the conditions 
resulting in "burn out" and little effort seems to have been devoted to the 
Bescrt ption of local heat transfer coefficients. 

Specifically for the region of forced convecticn subccsoled boiling, in 
addition to the work of McAdams and Buchberg referenced in Section C.4, some 
Other correlations that have been suggested ee 

(Q/a) = [(ce/const.)3 (us/(Heg? Prd-1)) (Gee = Ae)/ar)? x 


(C=15) 
x (Tw = Teat)? | + he (Ty - Tp) 


mae Wick. ei auo gun’! * 47P/90° (c=16) 
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‘ 


as 123 = 35 log(p) (C=17) 


Ty ~ Tent = 28 = 0.012 p (c~18) 
The superposition technique of Rosenhow and Clark in (C-i15) is clearly evi- 
denced by the two terms present, the first for boiling heat transfer, the 
second for non-boiling heat transfer. 

In the region of net steam generation, it has been observed that the 
heat transfer coefficient increases up to a certain vapor quality and then 
falls off sharply, the so-called burn-out condition. This effect is clearly 
evidenced in Figure C.2; at the point where the heat transfer coefficient 
falls, the liquid film on the heated surface has been burned off or dynamic 
instabilities cause it to break off. The flow profile of the liquid and 
Vapor undergoes a change and, as has been observed, the remaining liquid in 
this higher quality region is carried as droplets in a flowing steam medium, 


The results of several correlations for the region of net steam gener- 


11214 
ation (the two-phase region) are given below. In the subsequent dis- 
cussion the vapor quality x is defined by 
x = We / (We + Wp) (C219) 


where Wis the mass flow rate, and the void fractionegis described by 


X= Ag / (At + Ag) =) 
Where A is the cross sectional flow area. The subscript tp denotes two- 


phase. 


htp = he ((1 = x)/(1 -0¢))°°® (C=21) 
htp = 02060 (vg/vs)°*?? (ke/D) (xp/a ug)?*®? Pret (C=22) 
htp = C (kg/D) Re,”*® (C=23) 
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In equation (C-23), C = U.86u tor 0.4 €x € 0.5, 0.887 for 0.55 x <0.65 


and 0.904 for 0.7 <€ x €0.8. 


Atp = (ke/D) (4.3 + 0.005 x (valve)? 
0.464 0,808 (C=24) 
((Q/A)/(G Hee))°* "©" (ap/up)® 


2 2 

(Q/A)p = ker eg Pp” (1 - x) (Ty = Tsar)? aan 

(Hee tee (Meat > Te) olen fr > Pe) Bi eg) 

In equation (C=26), By is a free parameter, graphically vreprv one) ¢ 
function of the vapor density and heat of vaporization. 

For the region of liquid deficiency (Figure C.1), Parker and Grosh re-= 

port that two distinct types of heat transfer are present, depending on the 


15 


relative magnitude of the wall temperature. The Leidenfrost effect: was 


‘observed for high wall temperatures, for which the heat transfer coefficient 
* experimentally cbserved to be almost identical with that found with dry 


“saturated Steam, When the liquid droplets in the mist flow did not achieve 












the spheroidal stats, the droplets striking the wall provided a local wet- 


ting action and heat transfer coefficients of the order of 3 to 6 times 


those fer dry steam wers cbserved., 


The correlations indicated in eau a Cw *, (C=26) cannot repre= 


ment the transitional effect of the loss of the liguid film on the heat trans- 


fer surface. The point at which the liquid film is lost has been variously 


reported as occurring between qualities of 0.45 to 0.80, being a function 
12 


Metne mass flux ard * «6 heat faux. 
The results of the correlations indicated above all showed wide dis- 
Crepanciss cover their region of investigation, principally being of the order 
of * 20%. Microscopically, the complex phenomena associated with the boiling 
process are not understood and the dimensional or dimensionless groupings 
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are an engineering attempt to describe the observed experimental results. 
As noted previously, the data has been fitted generally to systems operating 
under pressures of 200 psia. 

The pr cure adopted here to consistently evaluate the local heat 
transfer coefficients for regions of subcooled boiling or net steam genera= 
tion has used the Levy correlation (C=26), For qualities up to 70%, this 
formulation is assumed te be valid. Above 70%. the heat transfer coefficient 
is predicted using the Colburn formulation for an all vapor flow, following 
the results of Parker and Grosh. 

In the description of the heat flux (Q/A), the superposition technique 


is frequently employed. 


(Q/A) total a (Q/A)y a4 ding (0/4) non-boiling (C-27) 
Mis is the technique demonstrated in the Resenhew correlation (Cat sue 
Assuming a given wall temperature Ty, (C=27) would be solved by trial-and- 


error to define an equivalent heat transfer coefficient h,, where 


he = (Q/A)totai/(Ty - To) (C-28) 

The errors associated with the formulation of (C=26) may play a deciding 
Tole in the size configuration of the CFR fuel element. To insure that the 
Walue of the equivalent heat transfer coefficient, for the subcooled and 
two=phase boiling regions is not over predicted, the assumption has been 
Made that the heat transfer mechanism is dependent only on the “boiling” 
Process. A typical value fcr the non=boiling heat transfer coefficient 
Will be of the order of 4500 to 5000 Btu/hr/ft*/°F, while in the low quality 
Tegion the boiling heat transfer coefficient will be roughly 10,000 to 
30,000 Btu/hr/rt*/°F. Disregarding the effect of the non-boiling convective 


heat transfer mechanism introduces a conservative note in the caleculational 


176 








procedure, increasing the thermal resistance for heat flow toe the first 
pass coolant and subsequently raising the wall temperatures for both the 
first and second pass heating surfaces, 

The evaluation of the equivalent heat transfer coefficient hg is ob- 
tained by inserting the calculated value of (Q/A) for (C-26) inte (C=28). 
The free parameter By has been mathematically fitted from the data presented 
in the Levy paper using the method of least squares. Defining the param- 


eter y 


y = Hpg / (1000 v,) (C270) 


the quantity 1/B; is mathematically described by 
1/By, = -0.6163 + 2.297 y = 0.5857 y~ + 0.03481 y? (C=30) 


C.6 Burnout Prediction = The Critical Heat Flux Ratio 





The controlling constraint on the performance of a water=cooled reactor 
is often the so-called "DNB (Danger, Nucleat Boiling)-ratio". Changes in 
the flow profile within a heated channel can lead to an extreme decrease of 
the heat transfer coefficient resulting in an inordinately high wall temper- 
ature, 

The continuation of the use of the nomenclature "DNB=ratio" to define 
the point beyond which the coolant is unable to remove heat from a fuel rod 
Or pin should be discarded. More realistically, the limiting constraint for 
heat transfer would be defined the "critical heat flux" or the "critical 
enthalpy rise", At its inception, the term "DNB-ratio" had physical meaning 
because of the constraint imposed on the pressurized-water reactor system 
“and the fact that the early extremely conservative design approach did not 
allow for nucleate boiling tc occur. The design of present day power reactors 


to operate with the coolant in the saturated state has its limiting 
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constraints, but these are not caused only by heat transfer problems due to 
mucleate boiling but rather changes in the coolant flow profiles and the 
wetness or dryness of the heat transfer surface. In this sense, the term 
WDNB=oratio" has little physical significance. 

Extensive reséarch has been and is being carried out in order to gain 
information that will lead to more precise empirical or semi-analytical 
ie that can be used to predict this constraint on reactor perform= 
+ : Presently, the microscopic behavior of what is happening within 
the channel is still not understood, just as with heat transfer prediction 
for two-phase flow. ‘Thus, it bacomes netessary to use an empirical corre- 
lation which can predict the critical conditions with a reasonable degree 
of accuracy. 

The prediction of the critical heat transfer condition inthis study is 
made using the formulation of Tong et al. These formulations are based on 
two different constraints, either heat flux or enthalpy rise. 

For the case of saturated outputs, the critical enthalpy rise Ale 


is predicted by 


-204Da. = 6 
Be = 0.529 He-Hn) + Hyp (0.82542.366 Je 1.56/10 


-0,0048L/De (C~31) 


+ Hep (0.548=0.410 - 1.12v¢/v,) 
The value of AH. was found to be sensibly independent of the variation of 
heat flux along the channel. The range of applicability of (C=31) is 
given below: 

Geometries: circular tube, rectangular channel and rod bundles 

Axial heat flux distribution: uniform and non-uniform 

Mass velocity: 0.2 x 10° to 4.0 x 10° 1b/hr/ft2 

Pressure: 800 to 2750 psia 

L/Dy ratio: 21 to 656 
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Inlet subcooling (He = Hy,,): 0 to 400 Btu/lb 

Local heat flux: 0.1 x 10° to 1.8 x 10° Btu/hr/ft? 

Exit quality: 0 to 90 weight percent 

Equivalent diameter: 0.1 to 0.54 inches 

Heated=to-wetted perimeter ratio: 0.88 to 1.0 

Although the first pass outlet condition is, on the average, in the 

saturated state for the CFR system, it is conceivable that the local exit 
condition from some channel could be in the subcooled state. For this 


situation, the critical heat flux (Q/A), is given by 


(Q/A), = (0.23 x 10° + 0,095 G) (3.0 + 0.01 aTg) 
(0.435 + 1.23 e70-0093L/D, y (C=32) 
1.7 2 lay 9° 020532(He = Hy )/ Hy)! (vel, )-1/3 
For the condition of uniform heat flux, (Q/A), yields values within z 20% 
at a 95% confidence level. For non-uniform heat fluxes, the calculated 
values of (Q/A), were approximately 40% lower than those observed experi- 
Mentariy. The range ef applicability of (C=32) is: 
Geometries: circular tube, rectangular channel and rod bundle 
Mass velocity: 0.2 x 10° = 8.0 x 106 1b/hr/ft* 
Pressure: 800 to 2000 psia 
L/D, ratio: 21 -365 
Inlet subcooling (Hp = H,,,): 0 to 700 Btu/lb 
Subcooling at DNB (ATs.): 0 to 228°F 
Local heat flux: 0.4 x 10© to 4.0 x 106 Btu/hr/ ft? 
Equivalent diameter: 0.1 to 0.54 inches 


Heated=to-wetted perimeter ratio: 0.88 to 1.0 
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The CFR first pass channel geometry does not specifically conform 
te the limits of heated-to-wetted perimeter ratio, For the CFR design, 
this value is less than 0.5. The correlation of Tong is used, however, 
for lack of a reliable correlation more closely fitting the CFR geometry. 

In the final determination of the controlling heat transfer constraint, 
the values of (28 etual)/ (OH) and (Q/A) a ctuar/(Q/A), are both calculated, 
Above 10% quality, only (C=31) is assumed to be valid. For outlet conditions 
below 10% quality, the values of the two ratios are compared. The ratio with 
the higher value is taken to be the limiting constraint, and is designated 
the "Critical heat flux ratio" in the printout of computer results, 

Because the "burnout" condition is described locally in the final answer 
statement, the general determination of whether the "critical heat flux ratio" 
is a limiting constraint on the system performance should be based only 
on the calculated result shown for the complete passage through the heat 
transfer channel. This appraisal is based on the discrepancies noted for 
the prediction of the values fez non-uniform channel heating. 

It should also be noted that second pass coolant critical heat flux 
ratios will appear which are negative. These numbers are generated by 
the following situation. As the saturated vapor enters the channel entrance 
for second pass heating, the pressure drops and a high quality two-phase 
mixture is present. The program does not distinguish the fact that the 
"inlet subcooling” on the second pass is negative and that the final steam 
quality is unity, i.e., in fact superheated. The second pass calculated 
Values of the critical heat flux ratio have thus no physical meaning. 


Co? Void Fraction Representation 


The intreduction of the void fraction cae into the calculation of either 
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heat transfer or pressure drop equations is an attempt to describe the 
slip flow present in a two-phase stream, The vapor velocity is different 


from that of the liquid, This then is a refinement of the homogeneous 
model in which a uniform bulk velocity is ascribed to both the liquid 
and vapor phases. 

The influence of the void fraction on the overall thermodynamic and 
pressure balancs quations for the dimension and sizes of the CFR system 
is small, The primary importance in describing the effect is reflected 
in the nuclear calculations, where the total mass of water present at a 
given axial position along the first pass channel is a function of the 
void fraction. This is not to say, however, that the influence on the 
twoephase pressure gradient is not negligible. 

The "classical" work RP RE A SUE the variation of the void fraction 
is that of Martinelli and Nelson. In that paper, the void fraction is 
derivable from a set of curves which are pressure and quality dependent. 

The fact that the first pass channel dimensions are small provides 
some flexibility in the representation of the void fraction. In the CFR 
system, the fusl elements are vertical, which presupposes that the flow 
profile distribution around the element centerline is, on the average, 
rotationally symmetric. One suggested representation of the void fraction 


21 
by Armand correlates the specific volumes and quality parameters. 


ce = (0.833 + 0.167 x) x ve/ (v, + X Vpg) (C=33) 
The Armand correlation has been incorporated into the subsequent calcu- 
lations, 
The explicit definition of the void fraction in (C=33) makes the cal- 
culation very straight forward, without the necessity of extensive curve 


fitting to define a polynomial or other type representation or of tabular 
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data defining the property. This correlation is, however, strictly not 
correct for the type of calculations involved with the CFR core. It was 
determin by measuring void fractions in horizontal heated pipe flows, 
rather than vertical. The general trends of this correlation have been 
porne out in vertical flow channels. It is, of course, accurate at the 
positions x = 0 and x = 1,0. 

The void fraction, as given in (C-33), is assumed to be a smooth 
continuous function of the vapor quality. 
C8 Velocity Profile with Slip Flow 
The definition of the quality x and void fraction o¢ fixes the velocity of 
the non-homogeneous liquid and vapor flow when the mass flow rate and 
cross sectional flow area ars specified. 


For the liquid velocity Vp, the describing equation is derived from 


Ps Ve Ag 2 We (Ca34) 
Ve = vp G (1 = x)/(1 =e) (C=36) 


where Gis the total mass flux. In the limit of x approaching unity 
(an all vapor flow), the quantity (1 = x)/(1 =) goes to zero. 


For the vapor velocity V 


g? the describing equation is derived from 
fe Veg Ag = We (C=37) 
= C=38 
Ve vgW,/ A, (C=38 ) 
v= (C=39) 
g vi, G x/o4 


Again, the slope of the void fraction is finite for the quality x going 


© zero, and V, is zero for x = 1.0. 


¢ Iwo=Phase Friction Facter 


As shown in Section D.1, the two-phase pressure gradient is caused 
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by the sum of two terms, the first veflecting the influence of momentum 
changes of the coolant as its thermodynamic state changes, the second the 
effect of shear along the confining walls of the channel. - 

The definition of the two-phase frictional gradient depends on the 
choice of the frictional coefficient. As with the Martinelli et al. work, 
the ratio of the two-phase frictional gradient is sometime represented as 
a functional multiplier times the all liquid frictional gradient. 

Shrock and Grossman have experienced a measure of success in describing 
the frictional gradient in the conventional manner, that is, as a function 
of a friction ~ ale In their work, the fraction coefficient Ce is 


defined as a pseudo-Fanning friction factor, where 


Cp = 0.046/Re°~ (C-40) 
when the Reynolds number Re is defined from the total flow through the 
system. The dynamic viscosity for the definition is based on the quality 


of the mixture, such that 


l/u s x/u, + (l= x)/ug (C=41) 
The definition of Cp in (C-41) is used subsequently for determining 
the two-phase friction factor. Note that for one-phase flow, either all 


liquid or all vapor, the Reynolds number is defined in terms of a one=- 


phase fluid. 
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APPENDIX D 
ENERGY BALANCE AND PRESSURE LOSS WITHIN THE CFR CORE 
D.1 Introduction 

The method cf defining the thermodynamic coolant properties at any posi- 
tion in the core must be compatible with the nuclear analysis of Appendix A. 
This limits the description of the coolant state within any given axial re= 
tion of a cell to a set of values, which must represent the average state of 
the coolant within that region. In this fashion, the analysis proceeds, 

The energy balance that is used to describe the steady state operation 
of the system includes not only the consideration of the power produced in 
the fuel itself, but also the heat exchanger effect caused by the flow of 
two fluid streams of different temperature separated by a conducting wall. 

The energy equation which must be satisfied at all points along a 
flow channel is derived ~~ 

dH + a(v)/(2gJ) + dz/J + dQ - dW = 0 (D=1) 
In equation (D-1), the following terms are understood: 

H e- enthalpy 

V o> bulk eccolant velocity 


Jo eenversion factor 


~ 
0 


height above some given datum line 


Q heat added 


0 


W, - shaft work remeved from the system. 

Each of these terms must be considered. W, is zero since no work is 
taken from the coolant while it is within the core. The effect of height 
Change can be neglected in comparison to the variation in the enthalpy term 
H. The kinetic energy variation (ths second term on the LHS of (D-1)) could 


also be neglected. However, because of the close relationship between the 


{84% 





kinetic energy and momentum flux terms, the effect of kinetic energy variac 
tion is included in the calculations with little additional computational 


effort. Under this set of assumptions, (D-1) becomes 


dH + d(v*)/(2gJ) +4Q = 0 (D=2) 

where the terms in (D-2) are written per unit mass of coolant, 
Distinct from the energy balance considerations, the force balance on 

an element of coolant is not directly coupled to the physical processes that 
are occurring on the other side of the fuel tube. There is, however, an ine 
direct coupling through the energy balance between the two streams. Primarily 
this coupling is exerted through the variation of the coolant density and its 
influence on the momentum flux term in the force balance equation. The 


basic force balance equation can be written as 


a) 
! 


==! 


= 20) dz = % (PA) dz = L_ (Poh) ds (D-3) 
where 

iad =» coolant density 

A = flow area 

p = pressure 
and subscript s represents the pressure magnitude variation introduced by 
shear at the confining channel walls. The change in pressure due to gravi- 
tational head is not included in (D-3), since it can be neglected in compari- 
son with the variation of the other terms. 

A tacit assumption made in the subssquent development is that the prese- 
sure across the fluid stream is constant, regardless of the flow profile or 
State of the coolant. 
in_Qne= or Two-Phase Flow 





).2_ General Characterization of Kinetic Energy _ 


When the reactor coolant is water and the reactor core is designed to 
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produce superheated steam, the state of the coolant as it flows through the 
core varies from compressed liquid to a two-phase saturated mixture to a oneq= 
phase all vapor flow. This section is devoted to the development of a rela- 
tionship which is valid for any of these states and defines the kinetic 
energy term. 
The steam quality x is defined in terms of flow rates, where 

x = We /W (D=4) 

where Wis the total flow rate through the channel and subscript g denotes 


the vapor phase and f the liquid phase. The total flow rate Wis simply 


W = We + W, (D=5) 
Conceptually, one can consider that x = 0 for an all liquid flow and 
x= 1 for an all vapor flow. The intermediate values of x then denote a 
twoophase flow. Note that with the definition of (D-4), in which the quality 
is defined in terms of flow rates rather than enthalpies, the concept is 
directly expressed mathematically. 
Using the definition of the void fraction c<(C-33), the velocity of the 


Vapor phase can be written as 


Ve = vg xW/ (cA) (D-6) 


and for the liquid phase as 


Ve = ve (1 - x) W/ (C1 - of) A) (D-7) 
The kinetic term in (D=2) was written on a per unit mass basis. If the 
total energy (kinetic) flowing through some cross section of the coolant 


channel is considered, the following relationship is developed: 


Wv2/(2¢e5) = (Wp Ve + We Ve* )/(2 6 J) (D-8) 


Note that this definition tacitly assumes that a slug of liquid is flowing 
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at the rate of Wr lb/hr with an average velocity Vr ft/hr while st the same 
cross section a slug of vapor is flowing at the rate of We lb/hr at an 
average velocity of V, ft/hr, 

Factoring out the flow rate W from the RHS of (D-8) by using the defi- 


nition of quality x yields 


WvP/(2 ed) = (xVy* + (1 - x) Ve) W/(2 g J) (D-9) 
Wnen the definitions of the liquid and vapor velocities are inserted in 
(D-9), 
wv = wce (C1 = x)3 ve2/(1 ocx)? + x3 v,2 6%) (D-10) 
The mass flux is denoted by G. Inequation (D-10) the flow rate W can 
be cancelled from both sides, leaving an expression for the kinetic energy 


KE, again on a per unit mass basis. 


KE = ((1 = x)3 ve@/(1 = 04) + x3 ve2h?) G2/(2 g J) - (De11) 
It immediately is apparent that (D=1i1) is valid for liquid, liquid- 


vapor flow and all vapor fiow. For the all liquid case, (D-11) reduces to 


KE)p = G* ve*/(2 2 J) | (D=12) 


while for the ail vapor case 


KE), = G¢ ve-/(2 g J) (D-13) 
Dej_General Characterization of Momentum Flux in One= or TwosPhase Flow 
The previous section developed a general relation for the kinetic energy 
term in the steady flow energy equation, In this section, a general equation 
will be developed to characterize the momentum flux at a given cross section 
ina flow channel. The notation of the previous section is employed here. 


let MF denote the momentum flux. Mathematically, it is expressed as 
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MF = V (pv A)/(A g) (D-14) 
or simply as 
MF = WV/(A gz) (Do15) 


The total momentum passing through a given section is then the product 
of (D-i5) and the flow area A. 


Total Momentum = W V/g (D=16) 


which can be broken into a liquid and vapor component as 


Total Momentum = (Wr Vp + Wy Vg)/g (D-17) 


Using the definiticr. of quality x 


Total Momentum = ((1 =x) Vp + x V,) W/e (D=18) 
and finally the velocity relationships 


Total Momentwm = ((j = x)ev_/(1 =o) + x? , fx) w/(gA) (D=19) 
Dividing this equation through by the flow area A yields the average momentum 


flux through the section. 


MF = ((i = x)* ve/(ioe ed) + xe Vp hd) G°/¢ (D=20) 


D4 Differential } 





Balance 





iquations for Counterflow Energy 


a 





The coupled differential equations defining the energy balance in the 
CFR core are best defined by first considering the geometrical sketch shown 
in Figure D.1. The physics of the situation ean be envisioned quickly from 
this sketsh. 


Defining the total energy term U such that 


U = H + KE (D-21 ) 
Where subscripts i and 2 denote first and second pass flow, respectively, 


the differential equations fer the two coolant streams over an incremental 
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SCHEMATIC OF COUNTERFLOW ENERGY BALANCE 





Figure D.1 
length of fuel tube dz are: 
W, Sot = £17 Q + 2 kg (Tp = Tj) | (D=22) 
We 2 = £20 = 2 ake (12 - Y)) ,  (De23) 


where all the terms in (222) and (D23) are functions of the height z, 
except the flow rates W; and Wo. The negative sign for the term on the LHS 
of (D-23) appears because the flow is opposite to the direction of positive 
height z. 

The terms fj and f2 are defined in Appendix B, For the case of first 
Pass flow entering from the region outside the fuel tube, as shown in Figure 


D.1 and incerporated into the equations (D=22) and (D-23), the term 


where the RHS of (D-24) is defined by (B-19) and previous definitions of 


that appendix. The quantity f> is then simply 


fo = 1.0 = fy (D=25) 
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The exfective thezmai cendustivity kg of (D=22) and (D=23) is defined 
by (B-17) and pricr relations. Given the temperature differential (T, = T, ), 
the second term on the RHS of (D-22) and (D=23) accounts for the heat trans- 


ferred from the "hot" second pass channel coolant to the "cold" first pass 


only the second term on the RHS of (D=22) and (D=23) would be present, and 


coolant across the fuel tube. (If no heat were produced in the fuel tube, 
the result would bs a set of differential equations identical with those 


describing a "conventional" counterflow heat exchanger. ) 


Simplification of E 





| If the kinetic energy term is neglected in (D=-21) and one considers the 
















total energy of a coolant stream can be described an any axial position only 


by its enthalpy H, (D=22) and (D=23) become 


Wy St, Q + 27 Ke (Ip - Yj) (D-26) 
= Wz G2 = £2Q = 2% ke (Ip - %) (D-27) 


If one assumes that there is no sensible variation of the first pass 
coolant temperature Ty; over the length of the channel L, which presupposes 
(1) that there is not a large amount of first pass subcooling when one con=- 
lier s the mixed inlet temperature of the feedwater and recirculating water 
relative to the saturation temperature of the first pass stream, and (2) 
pressure drop during the first pass does not appreciably lower the saturation 
temperature at which boiling first commences, then the quantity T, can be 
considered 2 constant. 

Assuming further that the water that is continuously recirculated 
through the core (i.e., Wy = Wo) loses no heat and defining the term Hp, to 
represent the inlet feedwater enthalpy to the core from the last stage feed- 


déter preheater, the LHS of (D=26) can be rewritten as W> di,/dz, referring 


190 





the incremental change in Hj; only to that water which goes through the second 


pass, yielding the new set 


Wo S44 = £1 Q + 247k (% = 1%) (De28) 
d 
= Wo $82 = £2Q - 2%ke (% - 1) (D=29) 


The ratio of the second pass enthalpy rise to the total enthalpy rise 


of the coolant which flows through the core can be described by 


fo = (Hout = He) / (Hout = Hey) (D-30) 

where i, is the enthalpy of saturaged vapor at the first pass pressure. 
If one assumes that the enthalpy change of the second pass vapor coolant 

is proportional to the temperature rise, an average specific heat of the 


coolant Co can be defined such that 


C2 = (Hout - Hy) / (Tout = Tp) (D=31 ) 


where, by previous assumption 


As a final simplification, the power generation rate in the fuel tube 
over any incremental length dz is assumed constant and the terms defining 
fj and f> are also assumed to be constant. Under these conditions, (D=29) 
becomes 

dz Wo Co W2 ¢2 
Defining the variable X to represent the temperature differential between 


the two streams 


X = To - Tj (D=34) 
where 
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os 
. 


Tout - Tg at z= 0 (D-35) 


* = © satze= L (D-36 ) 


equation (D-33) can be integrated to give, in terms of an integration cone 


stant Xp, 
+82 f 
R= he + eas (D=37) 
where 
(0 = 2% k, / (We eo) (D=38 ) 


With the assumption that all parameters relative to the coolants and 
the heat transfer process are constant over the whole length of the channel, 


the term Q, the average power gradient in the fuel tube, is simply 


@ = Wo (Heut - He,) / 1 (D=39) 
Using the boundary condition (D-35) to eliminate the integration cone 
stant X, and substituting the definition of (D-34) into the boundary condi- 
tion (D-36) results in the transcendental equation 
-6L 
= J 7 (D=40) 
By choosing the radial dimensions of the fuel tube and coolant channels 





and calculating values of representative heat transfer coefficients of the 
two coolant streams, equation (D-40) determines the length of the channel L 
necessary to achieve the required final outlet temperature or enthalpy for 

a given flow rate Wo and ratio of second pass enthalpy rise to total enthal- 
py rise, 

Physically, (D=-40) gives considerable insight to the energy transfer 
and balance process, First, it mathematically demonstrates that for the 
system to yield the required heat split between the first and second pass 
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streams, the LHS must be less than unity. Then depending on how great this 
deviation is from unity, the length of the channel is varied, changing the 
axial power generation gradient, so that the heat flux caused by the tempera- 
ture differential between the two streams results in the desired system per- 
formance.. With reasonable judgment the constant parameters appearing in 
(D-40) can be evaluated and parametric studies performed to make a prelimi- 
nary determination of the optimum dimensions for the system characteristics 
without the necessity of going into the fine details of the complete coupled 
nuclear-thermodynamic-heat transfer calculations. 


D6 Difference Equatio: y Balance Eq 








The variation of the coefficients in equations (D-22) and (D=-23) makes 
the integration of these equations impractical if a detailed study is made 
on the energy balance of the system. Consequently, a set of difference 
equations are necessary to their evaluation. These equations are formulated 
in a manner consistent with the nuclear analysis of Appendix A. 

The difference equation analog of Figure D.1 is shown in Figure D.2. 
Using this figure as a guide, the derivation of the difference equations 
becomes more meaningful. 

| | First Pass 
Inside Fuel Tube Outside Fuel Tube 


Ho, j+t 
8 
12) 544 





COUNTERFLOW ENERGY BALANCE MESH POINT QUANTITIES 
Figure D.2 
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Figure D.2 again shows the case for first pass flow in the region out- . 
side the fuel tube and second pass flow inside the fuel tube, 

Equations (D»22) and (D=23) are integrated in terms of forward differ- 
ences. For the second pass flow, the index steps down rather than up since 
the flow is opposite to the direction of positive length. 

letting subscript j represent one axial subdivision of the fuel tube 
and j+i the region immediately above it, equation (D-22) for the first pass 


flow is written as 


& 


° ° f ° Q Az. 
ae , oetedet Seg eee 
U4 itt Bi aE ee Te 
(D=41 ) 


e i ke j+1 (T2, 54127, 5+4 Vaz j+t#kej(T2, j-T1, jz 5] 


and for the second pass flow (D-23) gives 


* fo. 441 Q541 A2j+i + 2,4 05423 
U2, <= U2, i+ ss 4 iA rd ’ 


2 W> 
‘ D2) 
= ae [Re 541 (2, 41-1, 541 Bz j+1 thes (12, 5-1, j2j 


The method of integration in (D=4i) and (D-42) is not. strictly that of 
forward differences. The characterization of properties for each of the 
regions is based on their average value. Thus, the assumption is tacitly 
made that property variation over each of the axial regions is linear. 

This method of integration more realistically expresses the variation 
of properties. The value for each sub-region then represents the properties 
that are found when half the total pewer from the fuel and counterflowing 
coolant have been added as the coolant passes through the region. 

However, this type of integration scheme leads to a trial-and-error 
method of solution, as is apparent in both (D-41) and (D-42). The temper- 
ature of the coolant, if it isn't in the two-phase region, i a strong meae 


Sure of the total energy U. In (D-4i) one sees that Uj 544 is defined in 
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terms of Ty, 444 and Tz 444, while in (D-42) U2, 4 1s expressed as a function 
of 12,4 and Tj,j- In both cases, the temperatures with the same axial index 
as the total energy's index are unknown. 


D.7__Pressure Drop Due to Friction 


The last term on the RHS of (D-3) represents the change in force on 


factor Cr in (C-40), the pressure gradient due to friction can be defined. 
in the usual description of the frictional pressure gradient, when the 


Fanning Friction Factor is used, the pressure drep is written as 


App = 2 Cp (L/D,) (pV@/e) (D3) 
where the quantity (L/ Da) is interpreted to mean the number of equivalent 


hydraulic diameters through which the fluid flows. The gradient then is 


Apr _ 2.CF AV* (D4) 
ey ot, ez | sai 


For the situation in which two-phase flow may exist, the general de- 


seription of (D-44) is written for either one- or two-phase flow as 


er 2 208 up (D-45) 


the coolant stream due to friction. Using the definition of the friction 





The differential relationship of the fores balance equation of the 
| eoclant stream is given by (D-3). The representation subsequently used in 
this section is identical with that of Section D.6. In Figure D.2, the quan- 
tity pressure p can be substituted for total energy U. 
Using the results of the preceding section, the frictional gradient 
Can be written in terms of the momentum flux. Putting this into (D-3) and 


Writing in a difference notation, the pressure at pesition j+i for the first 


W) 





pass coolant becomes 
p . we = p fur [; = cae} 
1, j+i on, 1,544 


fur [ + cee} ; as, 
8 9 


(D-46) illustrates the same principle of integration that was used in 





(D-41) and (D=42). The properties in any region are defined at the "mide 
point" of that region. To complete the details, the second pass flow pres- 


sure at position j is simply 


2 = ; C 
tae ie t ae cree Bl + 
p47 
gels + ey < 
2,3 


The coupling between the first and sacond pass flow is through the 
variation of the momentum flux. This coupling is directly caused by changes 
in the thermodynamic energy state, i.e., specific volume, quality and void 
fraction, as they are influenced by the heat transferred between the two 
coolant streams. The coupling is therefore not as direct as in (D-4i) and 
(D-42), where the total energy of the system was considered. However, (D-46) 
and (D-47) again point up the fact that with this integration scheme, a trial- 
and-error method of solution is necessary. 


D9 _Selution of the Ener 





Balance and Force Balance 





The method of solving the coupled set of heat balance and pressure drop 
equations initially assumes the temperature of the two counterflowing cooling 
Streams is known from the previous iteraticn. Under this condition, the prob- 
lem revolves into one of two-way interpolation on enthalpy and pressure, in 
Which the counterflow effect has been completely uncoupled. 

Letting Q+ be the total heat added to the coolant stream (due to both 
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power production in the fuel tube and the temperature differential between 
the streams), the set of equations defining the enthalpy and pressure at 


position j+i for the first pass coolant is simply 


Hy, jet + KE)4 544 = Hyg + KE), 5 + % (D-48 ) 


; x Cr Az } [ Crdz 
+@MF)1 + 2.4 = : D4 
Pi, 5+ f f De ae Pi j + (MF 1 + et (D=49 ) 


Defining error terms associated for beth enthalpy and pressure, (D-48) and 








(D=49) can also be written as 


Hi 


ey RHS (D=48) = LHS (D=48) (D-50) 


i 


@p RHS (D-49) = LHS (D-49) (D=51) 
When the correct combination of (Hy, jtis Pq, +1) have been selected, the 
two error terms are zero, 

Several methods were tried to find the "best" method of solving (D-50) 
and (D-51). These included, among others, linear interpolation ard parae 
bolic interpolation. However, none of these methods proved satisfactory. 

The method finally determined as yielding the fastest method of solution 
involved the direct calculation ef ey and Spo If ey and ep did not fall 
Wathin specified convergence limits, a new iteration was started. For this 
and any subsequent iterations, the new trial enthalpy Hy fri wes set equal 
% the sum of the previous value ef Hy, 444 and the calculated error term eq. 
the new trial pressure value was found in the same manner, It was feund 
that under most ciremstances, this two-way interpolation procedure would 
converge to limits of 0.01 (a relative figure based for enthaipy on Je/Q}- 
and for pressure on ep / iP, ft+i > F1,3| ) within three iterations. a 

The counterparts of (D-48),(Do49) and (D-50),(D-51) were also written 


for the second pass flow side to defins values at the point j. 
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D.10 Calculational Precedure and Macroscopic Heat Balance 





The method sclving the property variation between the sub-regions has 
been described in the preceding sections. As pointed out, the sequence of 
calculations used as a starting point the results of the preceding iteration. 

Prior to the first radial sweep across the core, the temperature of the 
coolant is assumed to be zero. For any subsequent iterations during the 
first radiai sweep the temperature differential across the fuel tube is set’ 
to zero, uncoupling the heat exchanger effect, This approximation was neces-= 
sary to avoid extrapolating the calculated enthalpy values of the second pass 
coolant out of the steam table data cards. Before this feature was incorpor- 
ated into the routine, the first tims through the procedure both the enthalpy 
values of the coolant and the least-square-fitted coefficients defining the 
thermal conductivity and dynamic viscosity of the coolant were extended be- 
yond their range of applicability and, in certain situations, resulted in 
negative enthalpy, conductivity, or viscosity values. After the first radial 
sweep has been completed and the first iteration power distribution as deter- 
mined by the nuclear properties has been calculated, the heat exchanger effect 
with a finite temperature differential between the two counterflowing coolant 
Streams is included in the calculations. 

The caleulation first starts by assuming that the thermal resistance 
between the cladding wall and coolant is zero (infinite heat transfer coef= 
ficients) for both the first and second pass flew. Then, the calculation 
Starts with a cell in radial region i, first pass side and marches up the 
cell subdivisions te the upper mixing plenum. The precedure is repeated on 
the first pass side for all the radial core regions. The bulk mixed enthalpy 
of the first pass flow is calculated, which in turn fixes the second pass 


total flew rate. The calculation then marches back down the core on the 
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second pass side to the point of second pass outlet and across the core for 
all the radial regions. 

In determining whether the final thermodynamic profile of the coolant 
has been achieved within the core for the given nuclear power distribution, 
the total energy gained by both coolant streams is not calculated. Instead 
the methed of testing is a little more indirect, In the testing process 
the fraction of heat that flows to the coolant stream outside the fuel tube 
is calculated, based upon the heat transfer coefficients (or thermal resist- 
ances) of the just completed iteration. These values are then checked point 
wise for ali the core subdivisions, beth radial and axial, against the heat 
flow fraction determined from the previous iteration, If agreement is not 
achieved, the problem is reiterated, using the new value of f4,4j or fo. 4: 
depending on whether the flow enters from the outside or inside the fuel 
tube on the first pass. This process is repeated until the relative abso- 
lute magnitude of the difference between two successive iterations for all 
points in the core meets the desired ccnvergence eriterion. The value of 
the coolant state is then reflected in the testing procedure through its 
influence on the heat transfer coefficient between the cladding wall and 


the coolant, 


199 





APPENDIX & 
RADIAL FLOW DISTRIBUTION ACROSS THE REACTOR 
E.1 Instability 

When a fluid flows through a confined heated channel, pressure drop 
occurs due to friction. Additionally, when the fluid state undergoes 
large thermodynamic changes, the effect of momentum change must be consid-= 
ered, introduced through the variation in the density or specific volume 
of the coolant. 

An example of this effect can be demonstrated when one considers 
liquid water entering a heated channel. Assuming the inlet thermodynamic 
state and power generation rate in the channel are kept fixed, the outlet 
thermodynamic enthalpy will. vary inversely as the flow rate through the 
channel, If the flow rate is sufficiently reduced, the exit condition 
of the coolant will be in the two-phase region. For this situation, the 
gradient of pressure with flow rate becomes negative and an instability 
is present if more than one channel is connected in parallel between the 
inlet and exit plenums. 

The pressure change along the channel can be spprcximately represented 
by 


where 


Ap = W((¥o = vz) + Cp (vo + ¥z)L/Dg)/ (Ae) (Ee1) 
W o- mass flow rate 
A 


> eress sectional flow area 


gravitational constant 


va 
0 


<4 
0 


specific volume 


Cre Fanning friction factor 
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Boiling Non=Boiling 
Region 





PRESSURE DROP THROUGH A HEATED CHANNEL VS FLOW RATE 


Figure E.1 





Do = equivalent hydraulic diameter 


and subscripts ] and 2 denote the inlet and exit conditions, respectively. 
A schematic representation of this effect is shown in Figure E.1. 
For an assumed pressure drop across the channel, as indicated by the 
horizontal dashed line connecting points B and NB, two flow rates through 
the channel are possible, sither Wa ot Wepre respectively. 
The flow rate at the point Wp is unstabie. Fer regions to the left 
of the vertical dashed line, the nsgative slope of Ap vs W produces this 
instability. If, with no other flew resistance in series with the channel, 
the flow at the point Wp may change due to either a statistical or external 
Perturbation. If the flow rate should fall slightly, the pressure drop 


across the channe] ircreases, de¢reasing the flow rate even more. If, on 
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the other hand, the flow rate should rise slightly, the pressure will 
decrease and the flow rate through the channel will first accelerate 
down to the minimum point on the curve and then decelerate up to the 
point designated Wy5. The condition of the flow rate falling or the 
pressure differential rising leads to burnout, since the exit temperature 
of the leaving vapor becomes extremely high, Causing an attendant rise 
in the heat transfer surface wall temperature. 
E.2 Flow Control 
The means of avoiding a hydraulic instability for a forced convection 
boiling channel is to place an external flow resistance in series with 
the heated channel, This resistance has the characteristic that the pressure 
drop across it always has a positive slope for all through rates. Thus, with 


the resistance in series, the pressure drop curve of Figure E.1 would be 


Non=Boiling 





‘Low Rate W 
PRESSURE DROP THROUGH A HEATED CHANNEL VS FLOW RATE WITH 
AN EXTERNAL FLOW RESISTANCE IN SERIES WITH THE CHANNEL 


Figure E.2 
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For this case, the pressure drop vs flow rate is positive over all 
expected flow rates through the channel for a given channel power. Thus, 
the instability is removed with the resistance in series. 

The treatment subsequently is to consider the use of nozzles at each 
of the channel entrances to provide a stable flow pattern across the 
reactor. All the nozzles are assumed to have the same throat diameter. 
This has the disadvantage that for relatively hot channels additional 
flow is not received to decrease the exit quality or temperature. The 
utilization of variable throat diameters to regulate the final exit 
conditions is an area for further investigation. 

The nozzles that are used cause the system overall to exhibit a 
Stable flow pattern. With a non-uniform power distribution radially 
across the core, sufficient pressure drop across the nozzles must be pro- 
vided to ensure that the momentum changes of the coolant do not cause 
a negative slope for the quantity dap /dw. 


Ej Mathematical Formulation of the Pressure Drop Across the Nozzles 





In the description of the model used to analytically predict the 
pressure drop through the nozzles, the following assumptions are made: 
1) Flow through the nozzle can be considered homogeneous 
even if in fact it results in a saturated discharge. 
2) The nozzle is of the converging type. The section beyond 
the throat can be considered as a sudden expansion and 
be described using non-=compressible flow theory to roughly 
predict the heat loss associated with this expansion. 
3) The treatment of the flow of the relatively hot water through 
the first pass nozzles can be considered to be described by 


non=compressible flow theory down to the saturation pressure. 
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If the pressure drop associated with the necessary flow 
rate takes the pressure below the saturation pressure, the 
flow is then described using homogeneous compressible flow 
theory. 
Starting with a pressure pg and a temperature T.e and liquid specific 
volume veg (corresponding to the saturation temperature T,), the decrease 


in pressure is described by 


2 
Ap = V)"/(2 g vg.) (E-2) 
Tne velocity of the coolant in the plenum is considered neglibible. 
The velocity at the throat Vz is found by 


va = Vfe W/A, (E=3) 
where Wis the mass flow rate through the nozzle and A, is the cross 
Sectional area for flow at the throat, Putting this relation into (E-2) 
yields 


AP = Vee W/(2 g Ay *) (E-4) 


The preliminary estimated pressure at the throat is then equal to 


py Pe = Ap (E=5) 


If the value of py determined from (E-5) is greater than the 
Saturation pressure corresponding to the temperature T,» the analysis 
Skips to the calculation of the pressure loss resulting from the sudden 
expansion beyond the nozzle. For this case, the enthalpy of the coolant 
at the throat is assumed to be the same as that in the preceding plenum. 


However, if the value of p; in (E-5) is found to lie below the satur- 
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tion pressure corresponding to T,, the analysis then dictates that the 
two=phase condition be considered. For this cass, the velocity corresponding 


to a pressure drop down to the saturation pressure is calculated. 


Zz 
sat = 28 Vr (Pe - Peay) (E=6) 


V 

From this point, the calculation proceeds assuming two-phase 
homogeneous flow. The calculation assumes that ideally the expansion 
is isentropic. Thus, the reference entropy valus is that of saturated 
liquid Sfer OF if for second pass flow the entropy of saturated vapor 
Sge, at a temperature T,. A trial pressure value p is assumed, below 


the saturation pressure, and the quality of the mixture is calculated. 


m= (sre - sf)/S¢p (E=7) 
(The discussion is based on first pass entrance. For second pass 
entrance, the only change is to replace the subscript f with the 
subscript g.) The enthalpy at the point of ideal expansion H, is given 


by 


moe= HH. + xX He (E~8 ) 


A velocity term Vo is then defined such that 


Vo = 2¢ de (He, - Hy) (E-9) 
where J is a conversion factor and e is the efficiency of the nozzle. 
(It should be noted that the nozzle efficiency for both the second and 
first pass flow is the sams.) Including the velocity term from (E-6), 


anew total velocity term V~ is found by summing with (E=9). 
V2 = Vong + Vor (E10) 
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The conversion of thermodynamic to kinetic energy is represented 
2 
by the term V, . Under this condition, the final enthalpy of the flow 


H including the effect of a non-ideal expansion is represented by 

H = Hpg - © (Hype = H.) (E=11) 
and a two-phase quality 

x = (H = Hp)/He, (E~12) 
The specific volume of the homogeneous flowing mixture is defined by 

v = vg + X Veg (E-13) 


Under the conditions stated, the calculated value of mass flow 


rate through the throat Wi is given by 
2 DO 


if wi.” does not agree with the actual flow rate Ww, the assumed pressure 
to which the expansion takes place is varied until convergence within 
Specified limits is obtained. 

The expansion following the converging nozzle section is predicted 
using a pseudo non-compressible flow theory. The mass flux through the 


throat G, is defined by 

Ge = Wy/Ay (E=15) 
whereas in the channel the mass flux G, is given by 

G. = Wt/A, (E=16) 
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where A, is the channel cross sectional flow araa, 
At the throat before the sudden expansion takes place due to the 


increased flow area of the channel, the momentum term M. in the force balance 


1 
equation is given by 
M, = v Ge/g (E-17) 
and the kinetic energy term E;, by 
EB, = v° G,“/(2 ¢ J) (E-18) 


The total energy entering the region of sudden expansion is H 
plus E;, while the total "force" is p plus My. Using non-compressible 
flow theory, the final pressure P3 and enthalpy Hy after the sudden 


expansion are found from a solution of the set of equations: 


Hy = H+ By = Ge (ve3°(I = x5)9/(1 -y)” + 
os (E-19) 
"eo * 3 | )) 
3 a. 2 
Ph = P + Mi, = G“Cv—g (1 = x5)°/(1 = Of3) + ema 


Vp3 x, os) + (2,0 (A/a, )” = (A,/A,)©)My 


The last term on the RHS of (E=20) accsunts for the pressure loss associa- 
ted with the sudden expansion. 


Bot Mathematical Formulation of the Pres Drop at Channel Ex.+ 





The analytical methed used to describe the expansion process at the 
point when the flow suddenly starts into the plenum is the same as that 
previcusly described for the phenomenon after passage through the control 


nozzle, For this case, the fluid is assumed to be decelerated “. zero 
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velocity, that is, to assume that the area/channel is infinite in the 


plenum, 


Under this assumption, equation (E=19) and (E=-20) reduce to 


Hy SR es) (E-21) 


ul 
a 

+ 

<4 


P3 (E=22) 
and they are solved by trial-and-error according to the methods of 
Appendix B. 
E.5 Numerical Programming Techniques 

The first pass channels all start from a common plenum and exhaust 
to a common plenum. Under this arrangement, the pressure drop for all 
the channels must be same, on the average, since they are all connected 
in parallel. The same is true for the second pass channels. 

Starting with the plenum pressure and the area ratios of the throat 
to channel dimensions, the maximum value of ve (E-10) is calculated. 
Since the flow is compressible, a plot ¢f he vs Ap, the pressure drop 
across the nozzle, is calculated. Ths results of such a calculation are 
schematically shown in Figure E.3. 

Because the flow is compressible, the value of Wi or W,” goes through 
a maximum. For a given plenum pressure pe, the maximum flow rate through 
a channel is calculated, before the actual pressure drop across the 
channel or the flow rate through the different channels is varied to achieve 


equal pressure drop. 
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SKhialokh A"). ae | Ap 


MASS FLOW RATE (COMPRESSIBLE) THROUGH A NOZZLE AS A 
FUNCTION OF PRESSURE DROP 
Figure E.3 


Z 


To determine the point of zero slope, the quantity W,~ is ccnsidered 


to be a function of Ap. Thus, 
2 - 
We = f( Ap) (B+23) 


Numerically, some particular value of Ap is designated p, and the values 
of Pyy) and Py} are defined which are an amount Dp above and below the 
pressure drop p,. Corresponding to each of these assumed pressure drops, 
the flow rate term a, # is determined. 


The derivative of Wy” with Ap at the point p, isdefinead to be 


eC 
We (Wey - Wey @)/(2 Se) (E=24) 
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which is the central difference approximation made in Appendix A. 
Differentiation with respect to Ap is denoted by primes. The second 


derivative of We" is then 


2 it 2 2 2 
ee tke | Weel 7 © Wey )/(§ p*) (E=25) 


Using Newton's rule for interpolation, the value of Ap at which 


the slope is zero is given by 
24, 2% 
Ap = BR = We /Wtyk (E=26 ) 


To ascertain that value of Ap at which the slope is zero is in fact a 
maximum for Wes the curvature of the curve must be concave downward, 
ioe., the value of Wey must be negative. The programming technique 
employed has been to start at the lower values of pressure in the data 
Steam table deck and to successively increase the pressure until the 
curvature is concave downward. As soon as the pressure drop has been 
decreased to this region, (E=-26) is applied until the maximum is attained. 

if the flow, which is assumed to go through the nozzle, is not choked, 
the pressure drop through the nozzle corresponding to this flow is determined. 
This type of calculation is based on that portion of the curve of Figure 
E.3 which lies between the origin and the point of zero slope. Newton's 
rule is again applied. 

Lf W° is the square of the flow rate that has been set for the 
channel and We" is the flow rate squared through the nozzle cerresponding 
to some pressure drop Ap, the equation below is successively applied until 


> . Z 
We oe a Qo 
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| 2 1 
Ap = p> (Why = W")/We y (227) 


For ths determination of the distribution of flow across the core 
¢channeis, as a function cf the radial power distribution, the initial 
assumption is made that the flow through each of the channels is identical. 
Based on this assumption, the pewsr distribution, determined from nuclear 
calculations is made. On the second and subsequent iterations, the pressure 
drop across the channels may vary due to this uneven heating. 

On the first swesp across the core, an average pressure drop is 
Calculated. Then the method of calculation is to start another sweep 
across the core, during which the flow through each of the channels is 
Varied until the average pressures drop is achisved. When this second 
type of sweep has been completed, the flow through all] the channels is 
Summed and the calculated flow is checked against the specified flow. 

If the two do not agrss, interpolation to a new average pressure drop 
is made using Newton's method. This type of calculation proceeds until 
the calculated and specified flow rates agrea and yield an equal (to 
within specified convergence limits) prassure drop across the first or 


second pass core coolant channels. When this condition has been achieved, 


anew nuclear calculation commences and a new power distribution is begun, 
which may introduce a new radial power distribution across the core and 


necessitate a repetition of the precedurs just described. 
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APPENDIX F 
DIRECT CYCLE COOLANT ACTIVITY MODEL 

F.i Assumptions 

When water flows through the interior of a reactor and is exposed 
to fast neutron irradiation, it becomes radioactive. This radioactivity is 
carried outside the reactor primary shielding by the coolant. In the direct 
cycle application using steam from the reactor in the turbomachinery, it 
is necessary to determine the activity level, which is introduced into the 
machinery space by the activated coolant, to estimate the secondary shield- 
ing requirements. 

To make this estimation, the physics of the process must be consider- 
ed. Writing the flow parameters of the coolant inside the reactor in an 
Eulerian system of coordinates, the space and time-dependent equation 


describing this situation is 


Kos 


(ny (x,t) p(x,t)) = pit) O(x,t)O% 


&/ 


: (Ft) 


- Ay my lxst) pet) - Ye fing (x,t) plxt) v(x) 


where P is the density of coolant atoms, nj is the fraction of isotope 
type i that is radioactive, Y) is a characteristic one-group neutron flux, 
Gj is the cross section for activation of the i*® isotope, Ay is the 
radioactive decay constant, and V is the vector coolant velocity. The 
Symbol x denotes spatial position and t time. 

A detailed solution of equation (F-1) requires laborious calculations, 
Since it implied a knowledge of both spatial and time variation of the 
Parameters. As an obvious simplification to this dilemna, the estimation 
Of the time variation of the coolant activity will be made by assuming a 


lumped parameter model in which the spatial influence does not enter 
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directly in the calculations. 

To predict the level which will be attained with this model, it is 
assumed that the coolant is initially completely free of activity. The 
reactor then begins producing power at a constant rate. This rate is 
held constant and the coolant reaches a saturated level of activity after 
an infinite time has elapsed. 

F.2 Jumped Parameter Coolant Activity Concentration 

Let N(t) be the number of radioactive nuclei within the reactor at 
any time t. With the lumped parameter approximation, it is assumed that the 
production rate of radioactive nuclei within the reactor is independent of 
position. Let P be the constant rate at which this production is occur- 
ring. Then, the general time-dependent equation for the change of N(t) 
with time is 


aN(t) 
ae = P = AN(t) (P22) 


Equation (F=2) can be integrated directly for the condition that N(t) 
is zero for all time prior to power production and that at time t = 0, 
the production term in (F-2) undergoes a step change to a constant value 


for all subsequent time. This gives 
NG) = P X(1 ~ a7) (F-3) 


letting Tp be the time it takes the coolant to transit the reactor 
and M. the mass of coolant within the reactor, both quantities representing 
their representative statistical averages, after the assumed start-up proce- 
dure, the number of radioactive atoms per unit coolant mass in the reactor 
after its first complete transit through the reactor becomes 


a = za (1 - o7 ATR) (F-4) 
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Following a specific mass of coolant around the coolant flow loop, the 
mumber of radioactive nuclei in this mass begins to decrease as soon as it 


leaves the reactor. Outside the reactor, the production term in (F-2) is 


















pero. If Ts is the time it takes this mass to make a complete cyele of the 
polant flow loop, the number of radioactive nuclei per unit mass of coolant 


‘maining after the first complete coolant pass is 


N ih id > = 
eS Heroes = 


it at the same time, the coolant is again subjected to a step change in the 
obduction rate and an additional number of new radioactive nuclei are pro- 
ced as predicted by (F=-4). This phenomenon is qualitatively illustrated 

| Figure F.1. 

To determine the steady state concentration per unit mass of coolant 
ther of two techniques can be employed, both methods yielding the same 
sult. The first and most elegant mathematical method is to formulate a 
eral Fs-dependent differential equation in terms of step functions and 
lve for the steady state concentration by the methods of Laplace — 
The second method, based on an understanding of the physics of the pro- 
SS, is to recognize that each time that the mass of coolant leaves the 

fe an additional amount of activity is introduced into the mass. This 
tional amount of activity is given by equation (F-5), except that the 


ie time is now denoted by nTcg. This increment is 


AN(te. ts) Z >> (1-8 »TR) e7 eats (F-6) 
Cc 


lation (F-6) can be summed for an infinate number of cycles n in closed 


m to yield 
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Pulsed Activity Source Term 
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VARIATION OF RADIOACTIVITY FOR A GIVEN MASS OF COOLANT VS TIME 


Figure F. 4 


~ o7 ATR 
Mts) | a (F-7) 


3. Coolant Activity Production Rate 





The production rate P in (F=2) can be estimated by homogenizing the 
actor constituents and using a one-group model. Using the definition 
f Avogadro's number, the number of coolant or fuel molecules can be 
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vy o= réactor volume 

7 = AvVogadrats number 

A = molecular we1cht 

M - mass within the reactor 


N = number of molecules within the reactor 


f = homegenized mass density 








Then, the average molecular density cf a particular isotope can be predicted 


DV 


i” 


Vv & kv 
The total number of molecules of this tyne is predicted by 
“iM 
Nos te (F-9) 
Pa 
The ratie of coolant=-tc-fuel molecules is then 

Ne Mc AT (F 10) 
Ne Mg A, 


The rate at which the «so 
to its activation cross section as while the number of fissions taking 

place is proportionai te the fission cross section U'¢. It the constant C 
Jenotes the fission rate to produce a specified reactor power, the produc- 


4 


tion rate Pis determinsa. 


Pee weeps ac (F=11) 


4 Decay Rate Outside the Reactor 

Let Mog be the total mass of coolant in the flow loop, which encompasses 
the rvbomachiner quation (F=7) th sentration of 
he reactor and turbomschinery. Eauation > gave e concentra 


Beltoactive coolant atoms leaving tho reactor after an infinite number of 
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passes through the reactor. The concentration an amount of time (T, - Tp) 
later is the number of active atoms present after traversing the loop external 
to the reactor. Letting D represent the total number of decays that have 
taken place during the time increment (Ts - TR) in a mass of coolant (Mz - Mp), 


the radioactive source level in the machinery space is determined. 


73 St) eat 7) all 


F.5 Estimation of Reactor Transit and Cycle Times 


To gain a representative description of the reactor transit time for 
the coolant, a mixing volume for the process can be determined. When con- 
sidering the removal of heat from a reactor, a coolant flow rate Wis speci- 
fied. The mass of coolant within the reactor M, can be calculated from the 
geometry and a knowledge of the coolant property profile within the reactor. 

When the mass M, has been determined, the reactor transit time for the 


coolant is simply 


Th = Me /W (F-13) 
A similar approach can be used for the determination of the total coolant 
cycle time Ts, when the total mass of coolant in the flow loop is given or 
calculated. This yields 


Tg = Mg / W (F~14) 
The combination of (F-13) and (F=14) show that, to estimate the radio- 
active source level D, the number of parameter permutations can be reduced 


by considering 


(Ts /TR) = (Ms /Mp) (F=15) 
With this relationship, (F-12) can be reduced to 
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a -a rIR . 
D = = te a hts) (ees — TR) (F-16) 


and then studied parametrically for different values of Tp and the ratio 
of (Ts/Tp). 
F.6 Refinement of the Model 

Additional refinements can be introduced in the simplified model used, 
primarily in the area of estimating the spatial effects. A more exact analy- 
sis of the reactor transit and cycle time is the more obvious correction. 

Errors will be introduced in the production rate P in the reactor, if 
only volumetric considerations are used to define the "effective" mass of 
coolant or fuel present in (F=10). The contribution to the total activity 
that is caused by coolant traversal through a given section of the reactor 
1s not only dependent on the local neutron flux spectrum and its correlation 
with the activation cross section but also on the time spent in that region. 
The local spatial variation is demonstrated by the general differential 
equation (F-1). The total coolant mass should thus be weighted not only by 
the local one=group flux magnitude but also with a flux spectrum correction 
factor. 

The activation of the different isotopes is also proportional to their 
natural abundance. If the quantity r, represents their natural abundance, 


the cross section for activation must be written as ri (Qj. 
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APPENDIX G 


LISTING OF THE PROGRAM CFR 


To shorten the amount of space necessary to list the program, the 
following deviation has been made from the actual manner in which the 
FORTRAN cards would appear when compiling the source check. The program 
is too long for one main program on the IBM 7090 using the MIT system 
tape, so it had to be broken into a two-link chain job. To permit data 
transmission from one link of the program to the other and between sub- 
programs, most variables are stored in COMMON. This necessitates the 
appearance of the same 23 DIMENSION, 4 COMMON, and 77 EQUIVALENCE cards 
in each main program and subroutine. Rather than repeating these 104 
cards in each subprogram, they are listed completely only once below 
and then indicated in each subprogram by the 3 cards DIMENSION, COMMON, 
and EQUIVALENCE. 

The main program and subroutine appearing in the first link of the 
chain job on tape Bl are: 

CHAIN (1, Bl) 

Main Program: CFR1 

Subroutines: START, DATIN, DATA1, DATA2, DATA3, 
DATAL, DAPR, BEGIN, THERMO 

The second link of the chain on tape Be includes: 
CHAIN (2, B2) 

Main Program: CFR2 

Subroutines: THERMO, SSHTR, SSHTR1, SSHTR2, SSHTR3, 
SSHTR4, CNOZ, CNOZ1, CNOZ2, CNOZ3, PEXP, 
PXHTR, HTRAN, BURN, AIM, SIGMA, CONS, FLUX, 
EIVAL, CONV, CRIT, RING, RING1, RING2, CELAX, 
CELL, AXIAL, ANPRAX 
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Note that SUBROUTINE THERMO appears in both chain links 1 and 2. 
As another means of shortening space, SUBROUTINE THERMO is shown 


only in the listing for chain link 1. 


DIMENSION, COMMON AND EQUIVALENCE Statements 


DIMENSION A(2512),AC1(7),AC2(7),AC3(7,2),ACK(7,2),AC5(7,2),AC6(7,2 
1),AC7(7,2),AC8(7,2),AC9(7),AC10(7), AMAT(5,6),ASTO(773),BETA(101),B 
2MAT(6,6,5),BUCKCH(6,7,2),BUCK2(7,2),BUCK2A(7,2),BUCK2C( 7,2), BUCKOR 
3(7,2),C(5),CHI(7,2),D(101), DELR( 7), DELRA( 7), DELRC(7),DELRR(7),DELT 
4(3,21),DELTA(101),DEN(6,7,2),DIF(7,2),DIFA(7,2),DIFC(7,2),DIFCH(6, 
57,2),DIFR(7,2)DP(7),DPHI(101,2),DPHO(7,2),DUMMY(6,6),DZ(7), ENTH(6 
6,7,2),FAREA(2),FL(101),FLOW(6,2),FLP(101),FRAC(6,7),FRACT(6,6),G(1 
701),GP(7),G1(101),G1P(7),HDIAM(2),HEAT( 1611), HF(123),HG(123), HSUP( 
814,29) HT(2),HTR(6,7,2),L(169),1LB(7),LBA(7),LBC(7),1BR(7),LBS(7),L 
9BSA(7),LBSC(7),LBSR(7),NN(5),NPO(11),PHI(101,2),POWER(6, 7) 

DIMENSION POWP(101,2),POWR(7,2),PRES(6,7,2),PSAT(123),PSUP(29),R(1 
101), RA( 101) ,RAREA(7),RC(101),RHTR(2),RI(101),RIA(101),RIC(101), RIN 
2T(7,3),RIR(101),RR(101),SIGA(7,2),SIGAA(7,2),SIGAC(7,2),SIGAR(7,2) 
3, SIGAW(2), SIGPT(7), SIGPTA(7), SIGPTC(7) ,SIGPTR(7), SIGT( 7,2), SIGTRW( 
42), SMU(13),S0P(7),SOPA(7),SOPC(7), SOPP(7), SOPR(7),SOU(101), SOUA( 10 
51), S0UC(101),SOUP(101),SOUR(101),T(2),TA(2), TC(2), TEMC(6,7,2), TEMY 
6(6,7,2),TERM(6,6,4), TFMX(6,7),TR(2), TRANS(7,1,2), TRANSA(7,1,2), TRA 
7NSC(7,1,2),TRANSR(7,1,2),TSAT(123), TSUP(14),U(9,21), VF(123), VG( 123 
8), VSUP(14,29),VU(7,2),VUA(7,2),VUC( 7,2), VUR(7,2), VUSIG(7,2),VUSIGA 
9('7,2),VUSIGC( 7,2), VUSIGR(7,2),VUSIG(2), VUW(2), ZSTO( 1276) 

_— DNB(6,7,2),SF(123),SG(123},DCOR1(7,2),DCOR2(7,2),DCOR3(7 
5 DAE 

DIMENSION APOWP(6,101),APOWR(6,7),DISTL(21), TFBAR(6,7) 

COMMON A, ASTO, HEAT, ITAL, ITAO, ITAL, ITA2, ITA3, ITAL, L, NDS, NOG, SUM1, SU 
1M2,, SUM3,, SUM, SUM5 , SUM6, SUM7 , SUM8,, ZSTO 

COMMON SF,SG,DCOR1, DCOR2, DCOR3, ENOZ, RUSQ, DNBMAX 

COMMON APOWP, APOWR, DISTL, TFBAR 

EQUIVALENCE (A(1),VUSIG),{(A(15), VU), (A(22), TRANS), (A(36),SIGA), (AC 
150), DIF), (A(64),SIGPT),(A(71),T),(A(73),EIGEN2), (A(74),R),(A(175), 
ERT), (A(276),DELR), (A(283),PIM), (A(284),P), (A( 285), BUCK2), (A(299),S 
300), (A(400), SOP), (A(407),EIGENI), (A( 408), EIGEN), (A(409),C1), (A(410 
h),C2),(A(411),C63),(A(412), ch), (A(413),C5), (AC 414), C6), (A(415),C7), 
5(a(416), C8), (A( 4173, 9), (A(418),c103, (A(419), C11), (A(420),c12), (AC 
6421), ERR), (A(h22), SUM), (A(423), FAC), (A(404),FACL), (A(425), FAC2), (A 
7(426),FAC3), (A( 427), FACH), (A(428),CONL), (A( 429), Cone), (A(430), CON3 
8), (A(431), CONK), (A(432) , CONS ), (A( 433), CONG), (A(434),GAM), (A(435),G 
9AM1), (A( 436), ALPHA), (A(437),A1), (A(438),B1), (A(439),W), (A(440),W1) 

EQUIVALENCE (A(441),W2), (A(442),PSI1), (A(443),PST2), (AC LLL), DET), ( 
1A(445), CHI), (A( 459), VUSIGC), (A(4733, VUC), (A(480), TRANSC), (A(494),S 
2TGAC), (A(508}, DIFC), (A(522),SIGPTC),(A(529), TC), (A( 532), RC), (A( 633 
3) RIC), (A(734) ,DELRC), (A(743),BUCK2C), (A(757),SOUC), (A(858),SOPC), 
4(A(865), VUSIGA), (A(879), VUAS, (A( 886), TRANSA ), (A(900),SIGAA), (A(914 
5) ,DIFA), (A(928),SIGPTA), (A(935), TA), (A(938),RA),(A(1039), RTA), (ACI 
6140), DELRA), (A( 1149), BUCK2A ), (A( 1163), SOUA), (A( 1264), SOPA), (A(127) 
7), VUSIGR), (A(1285),VUR), (A( 1292), TRANSR), (A(1306),SIGAR), (A(1320), 
8DIFR), (A(1334),SIGPTR), (A( 1341), TR), (A(1344),RR), (A(1445),RIR), (AC 
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DIMENSION, COMMON AND EQUIVALENCE (Continued) 


91546 ), DELRR), (A( 1555), BUCK2R), (A(1569), SOUR), (A( 1670), SOPR) 

EQUIVALENCE (A(1715),VUSIGW),(A(1717),VUW), (A(1719), TRANSW ),(A(172 
10), SIGAW), (A(1722), SIGTRW), (A(1724),ESP1), (A(1725), ESP2), (A(1726), 
2ESP3),(A(1727), THETA}, (A(1728),POWL), (A(1729), FLO), (A(1730),RAT1), 
3(A(1731), TCIN), (A( 1732), TCFU), (A( 1733), TCOU). (A( 1734), HINT), (A(173 
45), TFMAX ), (A(1736),PPUMP ), (A( 1737), HPUMP ), (A( 1738), DCDEN), (A(1739) 
5 »RRDEN),(A(1740) RINT), (A(1761), HIN), (A(1762),RECIRC), (A(1763),HTO 
6P),(A(1764),PTOP ),(A(1765), HOUT), (A(1766),FOUT), (A(1767),HDIAM), (A 
7(1769), FAREA ),(A(1771.,CAREA), (A(1772),RAREA), (A(1779),DZ), (A(1786 
8), POWER), (A(1828), TEMC), (A( 1912), TEMW), (A( 1996), TFMX), (A(2038), ENT 
oH), (A(2122), FLOW), (A(2134-),DEN), (A(2218), FRAC), (A(2260), HTR) 

EQUIVALENCE (A(2344),PRES1, (A(2428),DNB), (A(2512), WATE) 

EQUIVALENCE (ASTO(1),AC1), (AsTO{8), Ac2), (ASTO( 15}, AC3), (ASTO(29),A 
104), (ASTO( 43), AC5}, (ASTO(57),AC6), (ASTO(71),AC7),(ASTO(85),ACB), (A 
2S5T0(99) ,AC9}, (ASTO( 106), AC10 , (ASTO( 113), BETA,G), (ASTO(214),D), (AS 
3T0( 315), DELTA,G1), (ASTO(416), DP), (ASTO( 423), FL), (ASTO(524),FLP), (A 
4STO(625),GP), (ASTO(632),G1P), (ASTO(639),SIGT), (ASTO(653), SMU), (AST 
50(666), SOPP), (ASTO( 673), SOUP) 

EQUIVALENCE (HEAT(1),TSAT), (HEAT(124),PSAT), (HEAT(247), VF), (HEAT(3 
170), VG), (HEAT(493),HF), (HEAT(616),HG), (HEAT(739), TSUP), (HEAT(753), 
2PSUP ), (HEAT( 782), VSUP }, (HEAT( 1188), HSUP), (HEAT(1594),P2), (HEAT(159 
35 ),H2), (HEAT(1596),12}, (HEAT( 1597), TSATU2), (HEAT( 1598), VL2), (HEAT( 
41599), VV2), (HEAT{ 1600), HL2), (HEAT( 1601}, HV2}, (HEAT(1602),CL2), (HEA 
51( 1603), CV2), (HEAT( 16045, T3L2), (HEAT( 1605), TCV2), (HEAT( 1606), VISL2 
6), (HEAT(1607), Visv2), (HEAT( 1608), RBL2 ), (HEAT( 1609), SURT2) , (HEAT(16 
710), QUAL2), (HEAT(1611.), VoID2} 

EQUIVALENCE (L(1),N1),(1(2),N2),(1(3),N3),(L(4),N7),(L(5),N), (L(6) 
1,NM1),(L(7),NM2), (L(8),MM1),(1(9), ICT}, (£(10), TCT1), (L(11), ICcT2), ( 
2L(12),1CT3),(£(13),TLK), (C14) ,M),(L(15 ),L5), (L(22),NB), (L(23), LBS 
3), (L( 30), MECT), (L(31} ,MitcT2 ), (L( 32 ),N4), (L(33),N5),(L(38), NCELL), ( 
4L(39),NCE),(L(41),MCE\,(L(47},MCELL), (L(48), LBC), (L(55), NBC), (L(56 
5), LBSC),(L(71), NAXIAL), (L472), NAXI), (L(74),MAXT), (L(80),MAXIAL), (L 
6(81), LBA), (L(88),NBA), (L(89*, BSA}, (L( 104), NRING ),(L(105),NRI), (L( 
7107 ),MRI},(L(113},MRING),(1(114), LBR},(L(121),N8R), (L(122), LBSR), ( 
8L( 133), ITERM), (L(134), TPR), (L(135),IPU), (2(136), 1 TER), (L(137), N34) 
ee pnp TA RO De BL) CA LS) TBR TA UL 2 oe ahey 

EQUIVALENCE (L(143},N100), (L(144),N101), (L(145),M80, IT), (L(146),M8 
11), (L(147),NN), (L(152),NP5),(L(163),NAA), (L(164), NCR), (L(165), NSKP 
2), (L(166), MODEH), (1(167), TEST), (1( 168), MAXTA), (L(169),MRIN) 

EQUIVALENCE (ZSTO{1}, AMAT), (ZSTO( 31}, BMAT}, (ZSTO( 311), BUCKCH), (ZST 
10(295),C), (ZSTO( 300}, DELT, H1}, (ZSTO( 301), P1), (ZSTC( 302), ENK1), (ZST 
20( 303), PK1), (ZSTO( 304), ENK2), (ZSTO( 305 ).PK2}, (ZSTO( 306 ),Q1), (ZSTO( 
3307), Q2), (ZSTO( 308), PITER2 ), (ZSTO( 309), FRACZ), (ZSTO( 310), DTC22), (2 
4ST0(311),D2), (ZSTO( 312), PISIGN’, (ZSTO(313),GSQP}, (ZSTO(314),GSQE), 
5(ZSTO( 315 ),H3), (ZSTO( 316), P3), (ZSTO{ 317 },DZ1), (ZSTO( 318) ,Dz2), (ZST 
60( 319), 1W2), (ZSTO( 320), RH2), (ZSTO(321),R1), (ZSTO( 322),HD), (ZSTO( 32 
73),GHD), (ZSTO( 324}, FLOC), (ZSTO( 325), AH1), (ZSTO( 326), AP1), (ZSTO( 327 
8), ERRH1), (ZSTO( 328), ERRH2', (ZST3( 329), ERRP1}, (ZSTO( 330), ERRP2), (ZS 
9TO( 331), XXX), (ZSTO( 332) ,XINT), (ZSTO 333), VINT), (ZSTO( 334), TCLL) 

EQUIVALENCE (ZST( 335), TCV1>, (ZSTO( 336), VISV1), (ZSTO( 337),E1), (ZST 
10(338), £2), (ZSTO( 339), £3), (ZSTO{ 340), E4), (ZSTO( 341), V1), (ZSTO( 342) 
2, V2), (ZSTO{ 343), V3), (ZSTO( 3445, V4), (ZSTO( 345 ) PS), (ZSTO( 346), TRED) 
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DIMENSION, COMMON AND EQUIVALENCE (Continued) 


3, (ZSTO( 347), TRED2 }, (ZSTO( 348), TRED3 ), (ZSTO( 349), TE), (ZSTO( 350), ENT 
hb), (ZSTO( 351), VOLIM) , (2ST0( 363), DIFCH), (ZSTO( 447) , DPHT, POWP), (ZSTO( 
5649), DPHO, POWR) , (ZSTO( 663), DUMMY), (ZSTO( 699), FRACT), (ZSTO(735), HT) 
6, (ZSTO(737), PHI), (ZSTO( 939}, RHTR) , (ZSTO( 941), TERM), (2STO(1085),U), 
7(ZSTO( 1274), TWOG.T), (zST6( 1275), THOG }, (ZSTO( 1276), FULOG), (ZSTO( 352) 
8, ARAT), (ZSTO( 353) , DNB2) 


CHAIN LINK (1, 51) 


% CHAIN(1,3B1) 
* LIST 
* FORTRAN 
¥* 
CCFRL - STEADY STATE NUCLEAR / POWER PROGRAM 
DIMENSION 
COMMON 
EQUIVALENCE 
1 FORMAT (80H 
1 } 
2 FORMAT (F10.4) 
3 READ 2.Al 
M( Al )11,11, 10 

10 CALL START 

11 READ INPUT TAPE ITAI,1 
WRITE OUTPUT TAPE ITAQ,1 
TTA 3=0 

12 CALL DATIN 
IF(N100)13, 13,3 

13 CALL DAPR 

14 CALL BEGIN 
C1=334722E=2 
TRANSW=01*TRANSW 
DO 15J=1, NOG 
VUSIGW( J )=eC1L¥VUSIGW( J) 
SIGAW(J)=C1*SIGAW( 3) 

15 SIGTRW( J}=C1*SIGTRW (J) 
WRITE OUTPUT TAPE ITAD,1 
IF(POW1)16, 16,19 

16 ITEST=1 
H2=HPUMP 
P2=PPUMP 

17 CALL THERMO 
Cle1.0/(62.43*{ QUAL2*VV2+{ 1. 0-QUAL2 )*VL2 } ) 
DO 18K=1.2 
DO 18J=1,MAXIAL 
DO 18I=1, MRI 

18 DEN(I,J,K)=sC1 

19 ITER=0 

500 CALL CHAIN(2,B2) 
END 





CHAIN LINK (1,81) = Continued. 


* 
5 
: 
i 


SUBROUTINE START 
DIMENSION 

COMMON 
EQUIVALENCE 


Cla7Q@27 C2 


DO 1I\#1,2512 
1 A(I)=0.0 

DO 2T=1,169 
2 L(r)=0 


DEFINE FISSION SPECTRUM 


22 © 


DO 3I=1,7 
3 CHI(I,1)=1.0 


lM 2a Q 


THETA=0, 8 

h NOG=2 
NDS=1 

5 ITERM=25 
L(134)=1 
L(162)=5 

6 RUSQ=0.0 
A(1343)21.0 

7 DO 8I=1, 3 

=304+33*1 

L(J)=50 
JeT+1 

8 L(J)=15 


SET UP TAPE NUMBERS 
ITAI=INPUT TAPE 


Caen" 62 


TTAT=) 
TTAQ=e 


© 


DO 91=65, 131, 33 
9 L(I}=1 


READ IN STEAM TABLES 


Qa2Q 


10 FORMAT (8F10.4) 
11 FORMAT (4F10.4) 
12 FORMAT (2F12.5) 


SET A AND L MATRICES = 0 


SET UP EXTRAPOLATION FACTOR, NUMBER OF GROUPS FOR DOWNSCATTERING, 
NUMBER OF GROUPS, NUMBER OF ITERATIONS FOR FLUX AND CRITICALITY 
SEARCHES AND POWER DISTRIBUTION 


TTAQ=9UTPUT TAPE 


READ INPUT TAPE ITAI,10,(TSAT(1L),PSAT(I), VF(1I),VG(L),HF(I),HG(I),s 


1F(I),SG(I),I=1, 123) 
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CHAIN LINK (1,B1) - Continued. 


C 


* 


* *K 


READ INPUT TAPE ITAI,11,(({TSUP(1),PSUP(J),VSUP(I,J),HSUP(I,J),Je1, 
129), I=1, 14 
READ INPUT TAPE ITAI, 12,DNBMAX, ENOZ 


500 RETURN 


SUBROUTINE DATIN 
DIMENSION 
COMMON 
EQUIVALENCE 
N1O00#0 

1 CALL DATA1 
IF(N100)2,2,5 

2 CALL DATA2 
IF(N100)3, 3,5 

3 CALL DATA3 
IF(N100)4,4,5 

4h CALL DATA 
IF(N100)500, 500, 5 

5 READ INPUT TAPE ITAI,6 

6 FORMAT (1H) 


SUBROUTINE DATA1 
DIMENSION 
COMMON 
EQUIVALENCE 
1 FORMAT (211,110,5112) 
2 FORMAT (21I1,110,5E12.5) 
3 FORMAT _. ERROR, ADDRESS FORMAT FOR FIXED POINT DATA CARD NU 
IMBER I3 
4 FORMAT (63HO ERROR, ADDRESS FORMAT FOR FLOATING POINT DATA DARD 
1 NUMBER 13) 
K=0 
31 K=K+1 
READ INPUT TAPE ITAI,1,NR,LC,NA, (NN(I),I=1,5) 
IF(NR )32, 32, 33 
32 WRITE OUTPUT TAPE ITAO,3,K 
N100=1 
GO TO 37 
33 IF(NR-5 )34, 34, 32 
34 IF(NA)32, 32, 35 
35 NA=NA-1 
DO 36I=1,NR 
J=NA+L 
36 L(J)=NN(T) 
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CHAIN LINK (1,Bl) - Continued. 


* KOK 


145 FORMAT (22HO 


37 IF(LC)31, 31, 38 
38 K=0 
39 KeK+l 


READ INPUT TAPE ITAI,2,NR,LC,NA,(C(I),I=1.5) 


IF (NR)40,40, 42 


N100=1 
GO TO 45 


h) IF(NR-5)h2, 40,40 
hO IF(NA)40, 40,43 
423 NA=NA~-1 


DO bhI=1,NR 
JaNA+I 


bh A(T)=C(I) 
45 IF(LC)39, 39,500 
500 RETURN 


EQUIVALENCE 


5 FORMAT (22HO ~~ ERROR, 


1UST BE EQUAL TO SEVEN) 


6 FORMAT (22HO ERROR, 


hO WRITE OUTPUT TAPE ITAO,4,K 


ADDRESS L(13,48H), 


ADDRESS L(1I3,65H), 


IMUST BE EQUAL TO OR GREATER THAN THREE) 


7 FORMAT (22HO ERROR, 


ADDRESS L(1I3,648), 


1 MUST BE EQUAL TO OR GREATER THAN TWO) 


8 FORMAT (22HO ~~ ERROR, 
LLARGE ) 

9 FORMAT (22HO ERROR, 
1S TOO LARGE) 

10 FORMAT (22HO ~~ ERROR, 
1E ODD) 

11 FORMAT (22HO ERROR, 


10N IS TOO LARGE) 
12 FORMAT (22HO 

10N IS TOO SMALL) 
13 FORMAT (22HO0 

1S IS TOO LARGE) 
14 FORMAT (22HO ERROR, 

1IN ASCENDING ORDER) 
ERROR, 


ERROR, 


ERROR, 


1PECIFIED) 


FIXED POINT DATA CHECK 


W7 IF(L(47)-7)48,49, 48 
48 Iah7 


ADDRESS L(1I3, 32H), 
ADDRESS L(1I3, 38H), 
ADDRESS L(13, 32H), 
ADDRESS L(1I3,42H), 
ADDRESS L(13,42H), 
ADDRESS L(1I3,418), 
ADDRESS L(I3,45H), 


ADDRESS L(I3, 35H), 


WRITE OUTPUT TAPE ITAO,5,1 


N100=1 


eg 


NUMBER OF CELL REGIONS M 
NUMBER OF AXIAL REGIONS 

NUMBER OF RADIAL REGIONS 
NUMBER OF REGIONS IS TOO 
NUMBER OF SPACE POINTS 1 
INTERFACE NUMBERS MUST B 
NUMBER OF POINTS IN REGI 
NUMBER OF POINTS IN REGI 
NUMBER OF CONTROL REGION 
CONTROL REGIONS MUST BE 


CRITICALITY OPTION NOT 5 





CHAIN LINK (1,B1) = Continued. 


ho ma JAPO) = 3)50,51,51 
50 I=80 
WRITE OUTPUT TAPE ITAO,6,1 
N1LO0e1 
51 IF(L(113)-2)52,53,53 
52 I=113 
WRITE OUTPUT TAPE ITAO,6,1 
N1LO0=1 
23 DO 7ONR=1, 3 
NCR=33*NR 
J=NCR+12 
DO 542214, 29 
JaJ+1 
54 L(I)=L(o) 
M=M 
IF(M-7 )56,56,55 
55 J=L++eNcR 
WRITE OUTPUT TAPE ITAO,8,J 
N1LOO=1 
56 LBl=LB(M) 
TF(LB1-101)58, 58,57 
57 J=1h4+M4NCR 
WRITE OUTPUT TAPE ITAO,9,J 
N1LO0=1 
58 DO 60I=1,M 
LBl=LB(1I)/2 
LB1l=2*LB1 
IF(LB1-LB(I})60,59,59 
59 JeLh+I4+NcR 
WRITE OUTPUT TAPE ITAO,10,J7 
N1LO0=1 
60 CONTINUE 
LBi=1 
DO 64I=1,M 
2=LB(I)-1B1 
Jo14+I+NCR 
TF(NR-1)601,601, 62 
601 IF(I-3)62,602,62 
602 IF(LB2-20)62,64,61 
61 WRITE OUTPUT TAPE ITAO,11,J 
N100=1 
GO TO 64 
62 IF(LB2-6)63,64,64 
63 WRITE OUTPUT TAPE ITAO, 12,J 
N100e1 
64 LBleLB(T) 
TF(N8-M)66,66,65 
65 J=224NCR 
WRITE OUTPUT TAPE ITAO,13,J 
N100=1 
66 IF(N8)70, 70,67 
67 LB1l=0 
DO 69I=1, 
peel ann )6e, 68,69 


226 





CHAIN LINK (1,B1) - Continued. 


*K 


aa a 


68 


69 
70 


(O01 


J=22+I-+NCR 

WRITE OUTPUT TAPE ITAO,14,J 
N1LOO+1 

LBl=LBS(T) 

CONTINUE 
IF(L(132) }701, 701, 500 

Kis132 

WRITE OUTPUT TAPE ITAO,145,K 


255 FORMAT (22HO 


N100=1 


500 RETURN 


SUBROUTINE DATA3 
DIMENSION 
COMMON 
EQUIVALENCE 


FLOATING POINT DATA CHECK OF NUCLEAR DATA 


15 FORMAT (70HO 
1CELL OR COOLANT) 

16 FORMAT (22HO 
1TIVE) 

17 FORMAT (72HO ERROR, 
1ROUP 1 TO GROUP 2/2kH 

18 FORMAT (22HO ~~ ERROR, 
1IS NEGATIVE) 

19 FORMAT (70HO 
1CELL OR COOLANT) 


ERROR, 


ERROR, 


ERROR, 


20 FORMAT (22HO -— ERROR, 
1TIVE) 

21 FORMAT (22HO ERROR, 
1 ZERO/NEGATIVE ) 

22 FORMAT (22HO ~~ ERROR, 


1IS ZERO/NEGATIVE } 
23 FORMAT (22H 
1TIVE/22H 
ah we (22H90 
1 
25 FORMAT (22HO 
110 IS NEGATIVE) 


1IVE) 


(02 MeMCELL 


F=2h58 
DO 71T41,,72 
JnJ+1 

71 A(I)=A(J) 
DO (3d#21,N0G 
DO 72T=1,M 


IF(VUSIG(I,5})72, 72, 74 


ERROR, 

ADDRESS A(I4,22H), NU IS ZERO/NEGATIVE) 
ERROR, 
ERROR, 


ERROR, 


NO POSITIVE VALUES OF NU*SIGMA FISSION FOR 
ADDRESS A(I4,31H), NU*SIGMA FISSION IS NEGA 
NO POSITIVE VALUES OF SIGMA TRANSFER FROM G 
FOR CELL OR COOLANT) 
ADDRESS A(I4,38H), SIGMA TRANSFER (1 TO 2) 
NO POSITIVE VALUES OF SIGMA ABSORPTION FOR 
ADDRESS A(I4,31H), SIGMA ABSORPTION IS NEGA 
ADDRESS A(I4,41H), DIFFUSION COEFFICIENT IS 
ADDRESS A(I4,43H), COOLANT SIGMA TRANSPORT 
ADDRESS A(I4,31H), NU*SIGMA FISSION IS POS1 
ADDRESS A(I4,27H), SIGMA POISON IS NEGATIVE 
ADDRESS A(T4,41H), POISON CROSS SECTION RAT 


ADDRESS A(I4,30H), EIGENVALUE MUST BE POSIT 


Ley 





CHAIN LINK (1,B1) = Continued. 


72 CONTINUE 
IF(VUSIGW(J))73, 73,74 

73 CONTINUE 
WRITE OUTPUT TAPE ITAO,15 
N100#1 

7h DO 783=1, NOG 
DO 76I=1,M 
IF(VUSIG(I,J)}75576, 76 

75 K=h5-+-L-+7*J 
WRITE OUTPUT TAPE ITAO,16,K 
N100=1 

76 CONTINUE 
IF(VUSIGW(J))77, 78,78 

77 Kel7Liey 
WRITE OUTPUT TAPE ITAO,16,K 
N1O00=1 

78 CONTINUE 
DO 79I=1,M 
IF(TRANS(I,1,2))79,79,81 

79 CONTINUE 
TF(TRANSW )80, 80,81 

80 WRITE OUTPUT TAPE I'TAO, 17 
N100=1 

81 DO 83Ie1,M 
IF(TRANS(I,1,2) )82,83, 83 

82 K=86+41 
WRITE OUTPUT TAPE ITAO, 18,K 
N100=1 

83 CONTINUE 
TF(TRANSW )84.,85, 85 

84. K=1719 
WRITE OUTPUT TAPE ITAO,18,K 
N100=1 

85 DO 873=1, NOG 
DO 86I=1,M 
IF(SIGA(I, J) )86,86, 88 

86 CONTINUE 
IF(SIGAW(J) )87, 87,88 

87 CONTINUE 
WRITE OUTPUT TAPE ITAO, 19 
N100=1 

88 DO 92J=1, NOG 
DO 90I=1,M 
IF( SIGA(I,J))89,90,90 

89 Kih86+4I+74I 
WRITE OUTPUT TAPE ITAO,20,K 
N100=1 

90 CONTINUE 
IF(SIGAW(J)}91,92,92 

91 K=1719-4J 
WRITE OUTPUT TAPE ITAO,20,K 
N1LOC=1 

92 CONTINUE 
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CHAIN LINK (1,B1) = Continued. 


DO 97Je1, NOG 
DO 951=2,M 
IF(I=5 )93;95,93 
93 IF(DIF(I,J))94,94,95 
94 K=e500+-I+7*I 
WRITE OUTPUT TAPE ITAO,21,K 
N1L00=1 
95 CONTINUE 
IF(SIGTRW(J) )96,96,97 
96 K=172145 
WRITE OUTPUT TAPE ITAO,22,K 
N100=1 
97 CONTINUE 
DO 105J=1,N0G 
DO 1021<2,M 
IF(I-5 )98, 102,98 
98 IF(VUSIG(I,J))102, 102,99 
99 IF(VU(I,J))100, 100, 102 
100 Keh51+4I+7%I 
M80=14-4K 
WRITE OUTPUT TAPE ITAO,23,K,M80 
N100=1 
102 CONTINUE 
IF(VUSIGW(J))105, 105,103 
103 IF(VUW(J))104, 104, 105 
104 K=1714+47 
M8OQ=K-+2 
WRITE OUTPUT TAPE ITAO,23,K,M80 
N100=1 
105 CONTINUE 
DO 109NA=1, 3 
NCR=5224+406%(NA-1) 
NAA=6-+NCR 
DO 1071l=NCR, NAA 
TF(A(I))106, 107, 107 
106 KeI+NCR-1 
WRITE OUTPUT TAPE I'TAO,24,K 
N1LO00=1 
107 CONTINUE 
NAA=NAA+1 
IF(A(NAA ))108, 109, 109 
108 WRITE OUTPUT TAPE ITAO,25,NAA 
N1O0=1 
109 CONTINUE 
IF(A( 1343) )1095, 1095,500 
1095 K=1343 
WRITE OUTPUT TAPE ITAO,255,K 
N100=1 
500 RETURN 
END 


ee) 





CHAIN LINK (1, Bl) = Continued. 


* 


SUBROUTINE DATA) 


DIMENSION 
COMMON 
EQUIVALENCE 

26 FORMAT (22HO 

10 SMALL) 

27 FORMAT (22H0 
1 TOO HIGH) 
28 FORMAT (22HO 
1 T00 LOW) 

29 FORMAT (22H0 


ERROR, ADDRESS A(I4,15H), 
ERROR, ADDRESS A(I4, 36H), 
ERROR, ADDRESS A(I4,35H), 


ERROR, ADDRESS A(I4,59H), 


1E FOR NON-ZERO POWER CALCULATION) 


30 FORMAT (2280 


ERROR, ADDRESS A(I4,43H), 


1ST BE INCREASING) 


C 


C TEST OF CONVERGENCE LIMITS 


¢ 
1096 DO 111T=1,3 
J=2Ll723+I 


TF(A(.7)=-0.00001)110, 111,111 
110 WRITE OUTPUT TAPE ITAO,26,J,I 


N100=1 
111 CONTINUE 


aaa 


J=1736 


TEST OF PUMP EXHAUST PROPERTIES 


IF(A(J)+2000. 0)113, 113,112 
112 WRITE OUTPUT TAPE ITAO,27,J 


N100<1 
113 J=1737 


TF(A(J)-68.0)114,115,115 
114 WRITE OUTPUT TAPE ITAO, 28,7 


N1O0=1 


115 IF(PW1)1185,1185, 116 


C2 Garg 


TEST OF HEAT TRANSFER PROPERTIES 


116 DO 118321729, 1734 
eat )1173117,118 
117 WRITE OUTPUT TAPE ITAO,29,d 


N100=1 
118 CONTINUE 
C 


C TEST OF GEOMETRICAL INPUTS 


©. 
1185 DO 121751.3 
R1l=0.0 
Ke Lh-+33%5 
M=L(K) 


VALUE OF ESPI1,13H IS TO 
PUMP EXHAUST PRESSURE IS 
PUMP EXHAUST ENTHALPY IS 
QUANTITY MUST BE POSITIV 


GEOMETRICAL DISTANCES MU 





CHAIN LINK (1,B1) - Continued. 


DO 120I=1,M 
TF(RINT(T,J)-K1)119, 119, 120 
119 K=17324i+7%d 
WRITE OUTPUT TAFE ITAO, 30,K 
N100=1 
120 Rl=RINT (1,7) 
121 CONTINUE 
500 RETURN 


EQUIVALENCE 
1 FORMAT (59H5 POWER/HEAT TRANSFER/THERMODYNAMIC PROPER 
1TTES//46H POWER GENERATION RATE 1PE13.5, 7H 
2BTU/HR/46H INLET PLENUM PRESSURE IPEL3. 5 
3H PSIA / 468 INLET PLENUM ENTHALPY 1PE1 

43.5, 7H BIU/EB) 

2 FORMAT (38H COOLANT FLOW RATE OUT SECOND PASS1PE32.5,6H LB/HR/ 
1408 ADDITIONAL FIRST PASS FLOW FRACTIONOPF30.5/53H FIRST P 
2ASS NOZZLE/ORIFICE AREA CONTRACTION RATIOF17.5/54H SECOND PASS 
3 NOZZLE/ORTFICE AREA CONTRACTION RATIOF16.5/43H THERMAL CONDUC 
MTYVITY OF INNER CLADDING1PE27.5,18H BTU/HR/FT/(DEG F)/33H THER 
S5MAL CONDUCTIVITY OF FUELE37.5,18H BTU/HR/FU/(DEG F)/43H THERMA 
6L CONDUCTIVITY OF OUTER CLADDINGE27.5,18H BTU/HR/FT/(DEG F)/40H 
7 INTERFACE HEAT TRANSFER CCEFFICIENTE30.5,23H BTU/HR/(FI**2)/(DEG 
8 F)//21H DRY CORE DENSITYE39.5,11H LB/(FT**3)/29H RADIAL R 
QEFLECTOR DENSITYE41.5,11H £B/(FT**31)) 


3 FORMAT (495m GEOMETRICAL INPUTS/70HO 
iL CELE AXIAT RADI 
2AL/78H REGION INTERFACE DISTANCE INTERFACE DISTANCE T 
3NTERFACE DISTANCE/76H NUMBER NUMBER (CMS) NUMBER 
h (cos ) NUMBER (cMsS)) 


h FORMAT (1H 17,110,1PE15.5,2(18,E15.5)) 
5 FORMAT (1H 17,210,1PE15.5,131,E15.5) 
6 FORMAT (1H I7,110,1PE15.5,18,B15.5) 

7 FORMAT (1H 27,110,1PE15.5) 


8 FORMAT (59H1 NUCLEAR MICROSCOPIC COOLANT PROPER 
1TTES/61H GROUP 1 GROU 
2eP 2/21H NUSSIGMA FISSION1PE23.5,E20.5/7H NUE37.5,£20.5/218 
3 SIGMA AEBSORPTIONE23.5,E20.5/20H SIGMA TRANSPORTE24.5, E20. 
45 /28H SIGMA TRANSFER (1 TO 2)E16.5} 

9 FORMAT (57H3 NUCLEAR MACROSCOPIC CELL PROPERTI 
_ GROUP 1 GROUP 
22 

10 FORMAT (26H90 REGIONI2/210 NU*SIGMA FISSIONLP 


1E23.5,E20.5/7H NUE37.5,E20.5/21H SIGMA ABSORPTIONE23.5, E20 
2.5/26H DIFFUSION COEFFICIENTE18.5,E20.5/28H SIGMA TRANSFER 
3 (1 TO 2)£16.5) 


nN 
oe) 
om! 





CHAIN LINK (1,B1) ~ Continued. 


LS Ge lal | 


105 FORMAT (4181 THE EIGENVALUE TO BE SEARCHED FOR IS1PE15.5) 


11 FORMAT (70H? POLSON CRITICALITY SEARCH REGIONS - 
1 ) 

12 FORMAT {70H+ CELL 
1 ) 

14 FORMAT ('70H+ RADIAL 
1 } 


15 FORMAT . 7OH+ 
1IN ALL REGIONS 3 

16 FORMAT (4 7H+ 

17 FORMAT (OP REGION SIGMA POISON (GROUP 2)) 

18 FORMAT (1H 27, 1PE29.51)} 

19 FORMAT (53H0 RATIO OF FOTSON CROSS SECTIONS (GROUP 1/GROUP 2)1P 
TH19.5) 


20 FORMAT (56H3 CBiag AXIAL RADIA 
1L) 
21 FORMAT (25H CONVERGENCE TESTING 17,111,110) 


22 FORMAT (3885 MAXTMJM NUMBER OF FLUX ITERATIONSI22/45H MAXIM 
LUM NUMBER OF CRITICALITY ITERATIONSI15 /518 MAXIMUM NUMBER OF E 
ONTHALPY/PRESSURE ITERATIONST9/36H MAXIMUM NUMBER OF RADIAL SWE 
3EPS124///228 FLOW INLET OPTIONI38/24H BLOCKED FLOW OPTION1 
436/248 BLOCKED SIDE OPTION136/26H BLOCKED REGION OPTIONI34 
5 


] 
23 FORMAT (318% CONVERGENCE LIMIT FCR FLUX1PE29.5/38H CONVERGE 
INCE LIMET FOR CRITICALTTYE22.5/32H CONVERGENCE LIMIT FOR POWER 
2628.5} 


WRITE CUTEUT TAFE ITA0,1,P0W1,PPUMP, HPUMP 
IF(POW1)25,25,2h 
2h WRITE OUTEUT TAPE ITA®,2,FL9,RECIRC, HOUT, RATI,TCIN, TCFU, TCOU, HINT, 
IDCDEN , RRDEN 
25 WRITE GUTEUI TAFE ITAC,3 
IF (MAXTAL-MRING )26,27,28 
26 LB2=MAXTAL 
Nl=1 
GO TS 29 
27 LBO=MAXIAL 
N12 
GO TO 29 
28 LB2@=MRING 
Nle:3 
29 DO 301e1, LB2 
30 WRITE OUTPUT TAFE TTAO,4,1I,L3C(1),RINT(I,1), LBA(I),RINT(I,2),LBR(I 
1), RINT(T, 3) 
LBLcLE@+1 
31 IF(LS)-MCELL) 32, 32, 39 
32 IF(N1-2)33, 35,37 
33 LB2eMRING 
DO 34IeLB1, 132 
34 WRITE OUTPUT TAPE ITAO,5,2,iBC(1),RINT(I,1),BR(I),RINT(I,3) 
LBl=LBes-1) 
Nle=2 
GO TS 31 


We 
1? 





CHAIN LINK (1,81) = Continued. 
35 LB2=MCELL 
DO 36I=LB1, LB2 
36 WRITE OUTPUT TAPE ITAO,7,1I,1BC(I),RINT(I,1) 
GO TO 39 
37 LB2=MAXIAL 
DO 38%=LB1, L:Be 
38 WRITE OUTPUT TAPE ITAO,6,I,LBC(1I),RINT(I,1),LBA(I),RINT(I,2) 
LBl=T.Be+1 
1=2 
GO TO 31 
39 WRITE OUTPUT TAPE FTAO,8, VUSIGW(1}, VUSIGW(2), VUW(1),VUW(2), SIGAW(1 
1),SIGAW(2}, SIGTRW(1}, SIGTRW(2), TRANSW 
WRITE OUTPUT TAPE ITAO,9 
DO 41T=2, MCELL. 
TF(T=5 40,421,409 
4O WRITE OUTPUT TAPE TLAO, 10,1, VUSIGC(I, 1), VUSIGC(I,2),VUC(I,1),VUC(I 
1,2),SIGAC(Z,1),SiGAC{I,2),DIFC(I,1),DIFC(I,2), TRANSC(I, 1,2) 
41 CONTINGE 
21343 
WRITE OUTPUT TAPE 7TAO,105,A(T) 
WRITE OUTPUP TATE ITAO, 11 
N5=2.( 132} 
J2134+33"N5 
DO heT=14,29 
ITE 
4O WTj=t( oT) 
S2L15+4062N5 
M80=27+1 
DO 43%=64, 72 
FaF+1 
43 A(T)=A( 8) 
TF(N5S =1)44, 44,46 
4h WRITE SUTPUT TAPE TTAO,12 
GO TO 47 
46 WRITE OUTPUT TAFE ITA, 1h 
47 TF(NG 348,48, 49 
48 WRITE OUTPUT TAPE I'TAO, 15 
NO=M 
LB 12204-33205 
L(L51)=M 
LB2=M80e1 
DG 481r21,M 
LBle@isl+l 
LB2cL B41 
A(LB2 )=A( M80) 
LBS(T)=2 
481 L{LB1 j=t 
GO TO 50 
hO WRITE OCPUT TAPE TAS, 16,(IBS(I),Ie1, NS) 
50 WRITE QUTPUT TAFE TTA, 17 
DO 501I+1,N8 
LB1=LBS(I) 
501 WRITE OUTPUT TAPE ITAO,18,LB1l,SIGPT(LB1) 
WRITE OUTPUT TAPE TAO, 19,T(1) 
WRITE CUTPUT TAPE TTAG, 20 
WRITE CQTFUT TAPE I'TAO,21,L(65),L(98),L(131) 


233 


CHAIN LINK (1,B1) - Continued. 


MICT=L{ 129} 

MICT2=L(130) 

WRITE OUTPUT TAPE ITAQ, 22,MICT, MICT2, ITERM,L(162), (L(I),I=152,155) 
WRITE OUTPUT TAFE ITA, 23,ESP1,ESP2,ESP3 

RETURN 

END 


* List 

FORTRAN 

* LABEL 
SUBROUTINE BEGIN 
DIMENS1 ON 
COMMON 
EQUIVALENCE 


5 


SET FIXED OPTIONS 
C 
N1,N2,N3,N7,N5, 


Q!QQlQQAQQAN 


L( 3) )=2 
L(67)=1 
1.(100 j=2 
i 35 =1 
L( 68 j=2 
L{101)=1 
Li 36 )=2 
L( 69 j= 
L(102 }= 
L(37)=1 
L( 70 }=2 
L{ 103 )=3 
L(66°=90 
L{99 }=0 


POLNIWISE DISTANCES AND N,NM1,NM2,MM1 


2 CQ 2 


DO lite1,3 
R(1)=0.0 
J213+33¥*I 
DO 1k=14,,21 
TaT41 
SUM1=0.0 
M80=1 
LBlea2 
DO 3%21,M 
KeiB( Ss) 

R(K JeRINT( J, I} 
SUM2akK—-M80 

LB2=K=1 

DELR( J'=(R(K}-SUM1)/SUM2 
DO 2KeLB1, LB2 





CHAIN LINK (1,Bl) - Continued. 


2 R(K)=R(K-1)+4DELR( J) 
LBl=1.B2+2 
M80=LB2+1 

3 SUM1eR(M80} 
J=5 30+4106¥(I-1) 
A(J)=1.0 
M=M 
MM1i=sMe-1 
N=eLB(M) 
WMleN-1 
NM2=N-2 
M80=54+33*1 
M81=M80+3 
Jal 
DO 4K=M80,M81 
Gage] 

h O(K 2b (7) 
TF(I-2)55755 

5 P=1.0 
PIM=6. 2831853 
DO 6K=1,N 

6 RI(K)=R(K) 

GO TD 9 

7 P+0.0 
PIM=1.0 
DO 8k=1,N 

8 RI(K)<1.0 

9 M80=126+406*I 
M81=2104M80 
J273 
DO 10K=M80,M81 
JeJ#1 

10 A(Kj=A( 5) 
11 CONTINUE 


AMAT 


C2 Caro 


TBl=2BC( 2) 
LB2=LBC( 3) 
E20 
DO 12Te=7B1, LB2 
JoT+1 
U(1,J3}21.0 
U(2, T)={3. 2808E-2 )*RC(1} 
DO 12K=3.9 
12 U(K,J)<U(K-1,J)*U(2,7) 
M80=1+LB2<LB1 
DO 1321.9 
G(I)=0.0 
DO 13J=1,M80 
13 G(r )=G(1)+U(I, J) 
DO 14I=1,5 
DO W=1,5 
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CHAIN LINK (1,B1) = Continued. 


Kel -43=1 
14 AMAT(T, J )=G(K) 
DS 20%=1,5 
DO 20321, 5 
Kel 
TF(I-J)15,18,18 
15 AMAT(I,J}2AMAT(I,J)/AMAT(I,I) 
16 IF(K-1)17,20,20 
17 AMAT(I,7)#£AMAT(I,3)-AMAT(I,K)*AMAT(K, J) /AMAT(I,1) 
KoK+1 
GO TO 16 
18 IF(K=3}19,20,20 
19 AMAT(T, JJeAMAT( I, dt }-AMAT(I,K)*AMAT(K, J) 
K=K+1 
GO TS 18 
20 CONTINUE 


DEFINE THE RADIA, REFLECTOR PROPERTIES 


Carg2 C2 


MCELL=MCELL 

MAX TAL<MAXTAL 

MRING=MRING 
BUCK2E(MRING, 1}=(3. 14159265 /RINT( MAXIAL, 2) )**2 
BUCK®R( MRING, 2 )=BUCK2R(MRING, 1) 


FIRST GUESS FOR CHANNEL BUCKLING TERMS 


Maa 


DO 23K=1, NOG 
DO 233=1,MAXIAL 
DO 23I=1,MRI 

23 BUCKCH(T,J,K)<0.0 


GENERATE SOURCE TERMS 


Ora 2 


DO 24T=1,101 
gcouc(1)=<0.0 
SOUA(I }=0.0 
2h SOUR{I)=0.0 
LBl=<BC(2)-+1 
LB2=LBC(3)-1 
C1s1.0/(3.14159265*(RINT( 3, 1)*RINT(3,1)-RINT(2,1)*RINT(2,1))) 
DO 25i=2B1,LB2 
25 sovc(Ij=C1 
MAXTI=MAXT 
LoleLBA(1)+41 
LB2cT-BA(MAXT )=1 
Cle1. 0/(RINT(MAXI,2)-RINT(1,2)) 
DO 26IeIB1, LB2 
26 SOUA(T)=t 
MRT&MRI 
LB2-LPR(MRI }-1 
C1-1.0/(3.14159265*RINT(MR1, 3)*RINT( MRT, 3) ) 
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CHAIN LINK (1,Bl) = Continued. 


* 


500 


10 
Tf 


13 
14 


141 
142 


14.3 


DO 27i=1, LB2 
SOUR{ T2t1 


RETURN 
END 


IST 

FOR'TRAN 

LABEL 

SUBROUTINE THERMO 
DIMENSIO 

COMMON 

EQUz VALENCE 

INTERP SLATION CALCULATION 


LiZiLe1 
THEAT=2 
XXX=P2 
JSAT=123*1HEAT 
XINT=JSAT 
VINT=HEAT{.JSAT) 
1SATS=JSAT~122 
VISL1=ISAT 
ISAT=( 1. OFVISL)+{XINT-VISL1 )* (XXX=HEAT( ISAT) )/( VINT-HEAT( ISAT) ) 
TF ( HEAT( ISAT) XxX )2,2, 3 
SSAT*ISAT«1 
TF(HEAT( SSAT)-XXX )5,5,4 
ISAT=ISAT-1 
GO TS 3 
XINT=(XXX-HEAT( JSAT) )/(HEAT(ISAT)-HEAT( JSAT) ) 
TSAT=ISAT~123#( THEAT-1} 
SJSAT&TSAT=1 
TF(LLLL“L-1)10, 10,58 
TF IHEAT-2 )11, 11,13 
TSATUQ=TSAT( ISAT )4XINT#(TSAT( ISAT) -TSAT(JSAT) ) 
HL2=EF( ISAT )4XINT*(HF(TSAT)-HF( JSAT) ) 
HV2=HG! JSAT)4+XINT*#{ HGS ISAT) -HG(JSAT) ) 
IF(HL2-H?}16,17,12 
MCDEH~1 
QUAT2=0.0 
VOIDZe0. 0 
THEA T#5 
=H2 
G) TO 1 
T2=TSAT( SSAT )+XINT#{ TSAT( ISAT) -TSAT( JSAT) ) 
CL2=(HF( ISAT )-HF(SSAT))/(TSAT(ISAT)-TSAT( JSAT)) 
ISUP=0 
fSUP=F2/50.0 
LF(PSUP(ISUP )-F2)142,1h2,143 
SSUP=3SUF +L 
GO TO 141 
LSUP=ISUP+1 
IF(HSUE({ISUP, JSUF ) )143, 143, 144 
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CHAIN LINK (1,B1) - Continued. 


144 VINTs(P2-PSUP( JSUP-1) )/(PSUP(JSUP )-PSUP( JSUP-1) ) 
VISL1=HSUP (ISUP, ‘SUP-1 }+VINT*(HSUP( ISUP, JSUP )-HSUP( ISUP, JSUP-1)) 
CV2=(VISL1-HV2 ) /( TSUP(ISUP )-TSATU2 ) 
VL2=VF( ISAT )4XINT*(VF(ISAT)-VF( JSAT) ) 
VV2=VG{ JSAT)+XINT*{ VG(ISAT)-VG( JSAT) ) 
TF(MODEH-15100, 100,15 

15 QUAL2={H2-HL2 )/({ HV2=HL2 ) 
VOTD2={ 0.83340. 167*QUAL2 )*( QUAL2*VV2 ) /( VL2+QUAL2*(VV2-VL2 ) ) 
GO TO 100 

16 IF(HV2-H2)50,17,17 

17 MODEH=2 
T2-TSATU2 
GO To 14 

50 MODEH=3 
QUAL2=1.0 
VOID2=1. 0 
JSSUP=P2/50.0 

51 IF(PSUP( JSUP j-F2)52,52,53 

52 JSUFeJSUP+1 
GO TO 51 

53 ISUF=1 

54 IF(HSUP(ISUP, SSUE )-H2}55,55,56 

55 ISUF=ISUP+1L 
GO TO 54 

56 Ele HSUF( ISUP-1, JSUP-1) 
Vl=VSUP(ISUE-1, TSUP=1) 
E2=HSUP{ TSUP-1, JSUP) 
V2=VSUP( ISUP=1, SSUP) 
E3=HSUP(ISUP, JSUP-1) 
V3-VSUP/ISUP, ISUP-1) 
EheHSUP(ISUP,JSUP ) 
VleVSUP( ISUF , JSUP ) 
i F(E2)57,57,62 

S57 XXX=ESUE( ISIE } 
IHEAT=2 
LLLLie@2 
GO TO1 

58 Th=TSAT( SSAT )4XINT#( TSAT( ISAT) -TSAT( JSAT) ) 
VOLUMSVG ( ISAT )+XINT*(VG(ISAT)-VG( JSAT) ) 
ENT=HG( ISAT )4XINT*(HG(ISAT)-HG( ISAT) ) 
XINT=( TSUF (TSUP-1)-TE) /( TSUP( ISUP)~-TE) 
IF(LLLLL=2 )59,59, 61 

59 E2=ENT+XINT#(HSUP( ISUP, SSUP )-ENT) 
V2=:VOLUM+XINT* ( VSUF( ISUP, JSUP )-VOLUM) 
IF(E1}60, 60,62 

60 XXX=PSUP{ JSUP=1) 
THEAT=2 


ee ee 
dowst Leys 


Te TS 1 

61 ElsENTSXINT*(HSUE(ISUP, JSUP-1)-ENT) 
Vl=VOLUM+XINT#( VSUP(ISUP, JSUP-1)-VOLUM) 

62 XINT=(P2-PSuP{ TsuP-1))/(ESUP(JSUP )-PSUP( JSUP-1)) 
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CHAIN LINK (1,Bl} ~ Continued. 


El©eE1+XINT*( E2-E1) 
V1-V14XINT¥(V2-V1) 
E2=E34XINT* (E453 ) 
Vo=V7 34XINT#(Vh-V3 ) 
XINT={2-E1)/(E2-E1) 
T2=TSUF ( [SUF -1)+XINT*(TSUP(ISUP )-TSUP( ISUP-1)) 
W22V14XINTS(V2-V1) 
CV¥2={#2-E1)/( TSUP(ISUP )-TSUP(ISUP-1)) 
100 IF{ TEST )1000, 1000, 121 
1000 TRED=T2/100.0 
TRED2 = TRED*TRED 
TRED3=TRED*TRED2 
TF(T2-705.4)150,151,151 
150 ISAT={ T2/5.0}~18.0 
101 JSAT=ISAT-1 
IF(TSATY FSAT)=-T2)103, 103, 102 
102 ISAT=ISAT-1 
Go "PO: 101 
103 XINT=(T2-TSAT( ISAT) )/( TSAT(ISAT)-TSAT( JSAT) ) 
PS=PSAT( ISAT )+XINT#(PSAT( ISAT) -PSAT(JSAT) ) 
151 IF(MUDEH-2 3104, 108, 109 
104 IF(F2-1000.0}106, 105, 105 
105 TCL1=0. 3153340. 061663*TRED-0.011357* TRED2+0. 000068420*TRED3 
TCL2=0. 3217040. 054882*TRED=0. 0087762*TRED2-0 .00016007* TRED3 
XINT={P2-1000. 0) /1000.0 
GO TO 107 
106 TCL1=0. 3152740. 061374*TRED-0.011858*TRED2-++0. 00016320* TRED3 
TCL2=0. 3153340. 061663*TRED=0. 011357*TRED2+0. 000068420*TRED3 
XINT=({P2-1000.0)/(FS=1000.0) 
107 TOL2=TCL1+XINT*( TCLS -TCL1) 
VISL2=3. 0491-1. 8409#TRED+0. LOLS 7#TRED2 -0. 02974 4*TRED3 
SURT2={5. 20h06B-3 )=(2. 13922E-4 )*TRED-(2. 24004E)*TRED2+( 3.43981E- 
15 \*TREDZ-( 1. 69209K-6 )#{ TRED# TRED3 ) 
TRED=(HV2-HL2 )/)1000. OF VV2) 
IF({ TRED-0. 003 j202,201, 201 
201 RBL2=2.063E=3 
GOTO 121 
202 TRED2=TRED*TRED 
TRED3=TRED* TRED2 
RBL2s-(1, 88225E-5 )+{ 3. 39739E-4 )¥TRED+( 1. 47490E-3 )*TRED2-(8.19500B- 
Lh )FTRED3+4{ 1. 22556E-) )#( TRED*TRED3 ) 
GO TH 121 
108 TCV2=-0. 002288740. 013173*TRED=-0. 0031711* TRED2-+0. 00035 368*TRED3 
ViSV220. 01319240. 014194*TRED-O. 0035711*TRED2+0. 00051849* TRED3 
GO TO 106 
109 IF(P2-1000.0)117,110, 110 
110 TCV1i=0. 086720-0. 020103*TRED+0. 0022207*TRED2-0. 000072108* TRED3 
VISV1le6. 076922-0. 0034264*TRED+00. 00035689* TRED?--TRED3*9. 3899E-9 
TF(T2-596.23)112,111,111 
111 TCV2=0. 17027-0. 04385 3*TRED+0. OOL4871* TRED2 <0. OOOLHHE8*TRED3 
XINT=(F2.1000.0}/1000.0 
GO TO 113 
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CHAIN LINK (1,Bl) - Continued. 


112 TCV2=-0. 003288740. 013173*TRED-0. 0031711* TRED2+0. 00035 368* TRED3 
XINT=(P2-1000. 0) /(PS-1000. 0) 

113 IF{T2-544.61)115, 114,114 

114 VISV2=0. 20737=0.036836* TRED+0. 0037431*TRED2-+0. 00011943*TRED3 
VINT=(P2-1000. 0} /500.0 
COPP 120 

115 VINT=(F2-1000. 0} /{PS-1000.0) 

116 VIS¥2-0. 013192+0. 014194*TRED~O. 003571L1*TRED2+0. 0051849* TRED3 
G6 TO 120 

117 TEV1=0. 01639340. 00071136*TRED+0. 00012148*TRED2-0. 0000013415*TRED3 
VISV1=0. 01939440. 0065459" TRED=-0. 00031585*TRED2+0. 0000124 32*TRED3 
IF(T2-544.61)119, 118,118 

118 TCV2=-0. 086720-0. 020103*TRED+0. 0022207* TRED2-0. 000072108* TRED3 
XINT={P2-250.0)/750.0 
VINT=P2 /1000. 0 
VIS¥2Z=0. 076922-0. 003426 TRED+O. 00035689* TRED2-+-TRED3*9. 3899E-9 
GO TO 120 ; 

119 TCV2=-0. 0032887+0.013173*TRED-0. 0031711*TRED2+0. 00035 368* TRED3 
XINT={P2-250.0)/(PS-250.0) 
VINT=P2/PS 
Go TO 116 

120 TC¥2=TCV1+EXING*( TCV2-TCV1} 
VISV2=TISVISVINT#( VISV2-VISV1) 

121 RETURN 
END 


CHAIN LINK (2,32) 


CA ® K Ke & 


CHAIN (2,52) 
LIST 
FORTEAN 
LASET, 


CFR2 - STEADY STATE NUCLEAR/POWER PROGRAM 


DIMENSION 
COMMON 
EQUIVALENCE 
1 FORMAT (80H 
1 
2 FORMAT (26H? THE REACTOR POWER IS 1PE12.4,7H BTU/HR) 
3 FORMAT (69H1 CALCULATT ON FAILED, MAXIMUM NUMBER OF RADIAL ITERA 
1TTONS EXCEEDED) 
301 FORMAT (2181 RADIAL ITERATIONI3) 
TF( NPO 1) 3302, 302, 303 
302 K1<-0 
K2=1 
GO T9 304 
303 Kle=3 
Des co} 
304 MRI=MRT 
MAX T=MAXi 
MOET LEMCELL 
MAXTATSMAX TAT. 
SUMZ=R7NT( MRI, 3 #*2 
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CHAIN LINK (2,82) - Continued. 


SUM2=0.0 
DO 4I=1, MRI 
SUM1=SUM2 
SUM2=RINT(I, 3)**2 
4 DUMMY(I, 1)=(SUM2-SUML ) /SUM3 
READ INPUT TAPE ITAI,1 
IF(POIL)75 795 
5 SUMl=(RINT( MCELL, 1) )#*2 
SUM2=( 3, 2808E=2 }*(RINT( MAXI, 2)-RINT(1,2)) 
SUM5=P WW 1#(SUM1/SUM3 ) /SUM2 
DO 6J=2,MAXI 
DO 6I=1, MRI 
6 DUMMY(I, J)=SUM5 
WRITE OUTPUT IAPE ITAD,2,POW1 
7 ITER=ITER+1 
IF(ITER-NPO( 11) 39,9,8 
8 WRITE OUTPUT TAPE ITAD, 3 
GO TO 37 
9 IF(IPR)902, 902,901 
901 WRITE OUTPUT TAPE ITAD, 301,ITER 
902 IF(POW1L)10, 10,11 
10 IF{ ITER-1)12, 12, 14 
11 CALL SSHTR 
TF(N100-2 )12,45,45 
12 K=O 
DO 13Ie1,MAXIAL, MAXT 
KeK+1 
Cl=DEN(1,I, K) 
TRANSA(I, 1, 2 \=C14TRANSH 
DO 13J=1, NOG 
VUSIGA(I. J}=C1#VUSIGW(J) 
VUA(T, J )=Vvuw( J) 
TGAA(I, J )et1*SIGAW( J) 
13 DIFA(I,Jj=1.0/(3.0*C1*SIGTRW(J) ) 
14 DO 31TMRIN=1, MRI 
MRIN=IMRIN 
IF(POW1)15,15,17 
15 IF(ITER=1)17,17, 16 
16 IF(L(132)-1)eh,17,24 
17 3233 
DO 18I=1, 33 
SeS$el 
18 L(r)=|1L(J) 
Jeh58 
DO 19I=:1, 406 
JeS$L 
19 A(I)=A( 7) 
DO 23IMAXTAe2, MAXI 
MAX TAc-IMAXTA 
KeK1 
DO 20fe1,5, 4 
K=K+K2 





CHAIN LINK (2,B2) = Continued. 


C1l-=DEN( IMRIN, IMAXIA,K) 
TRANS(I,1,2 }eC1*TRANSW 
DO 20J=1, NOG 
VUSIG(1, J }2C1L*VUSIGW (J) 
VU(I, J )<vuw( 5) 
SIGA(I, J)xC1#SIGAW(J) 
20 DIF(I,J)=1.0/(3. O*CL¥SIGTRW(T)) 
21 CALL AIM 
LF(N100=2 }22,45,45 
22 IF(PW1)24,24,23 
23 CONTINUE 
2h J=66 
DO 25T=1, 33 


25 L(rj=1( 5) 


DO 26r=1,406 
Jae] 
26 A(I)=A(T) 
DO 273=1, NOG 
DO 27I=1,MAXIAL 
27 BUCK2(I, 7 )=BUCKCH( IMRIN, I,J) 
28 CALL AIM 
TF(N100=2 129,45, 45 
29 IF(ITER=1)30, 30, 31 


30 
aL 
Be 


33 


34 
39 


TF(NPO(2 } )32, 32,31 
CONTINUE 

Jx99 

DO 33I=1, 33 
wajelL 

L(TjeL( 5) 

Jol270 

DD 34721, 444 

em se] 

A(T)exa( J} 

CALL AIM 
IF(N100=1 }36, 7,45 


36 IF(N101}37,3757 

37 TF(POW1)45,45, 38 

38 DO LOIMRIN=1, MRI 
MRIN=IMRIN 
WRITE OUTPUT TAPE ITAO,1 
WRITE OUTPUT TAPE ITAO,2,POW1 

39 CALL ANPRAX 

LO CONTINUE 

45 Cl=3.34722E=2 
TRANSW=TRANSW/C1 
DO h6y=1, N0G 
VUSIGW(F)eVISIGW(T)/CL 
SIGAW( J )=SiGAW(J)/C1 

46 SIGTRW(J}=SIGTRW(3)/C1 

500 CALL CHAIN(1,51) 

END 
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3 


C2 


Lise 

FORTRAN 

LABEL 

SUBROUTINE SSHIR 
DIMENSION 
COMMON 
EQUIVALENCE 


CHAIN LINK (2,382) = Continued. 


1 FORMAT (6282 MAXTMOM NUMBER OF ITERATIONS EXCEEDED IN SUBROUTIN 


1E SSHTR) 


2 FORMAT (348 PROGRAM TERMINATED IN CHANNELI2,19H (INNER=1, OUTE 


3 FORMAT (33H1 RESULTS WHEN PROGRAM STOPPED) 
4k FORMAT (18H RADIAL REGIONI6, 5120/10H AXTAL/11H REGION) 


5 FORMAT (28H 
6 FORMAT (50H 
7 FORMAT {18H 
8 FORMAT (18H 
Q FORMAT (19H 
91 FORMAT (19H 
92 FORMAT (26H 
93 FORMAT ({ 34H 
10 FORMAT (18, 6820.5) 


FOWER DISTRIBUTION) 

FRACTION OF FOWEF GOING TO OUTER CHANNEL) 
PRESSURE ) 

ENTHALPY } 

FLOVY RATS) 

DNB-RATIC) 

WALL TEMPERATURE } 

MAXIMUM FUEL TEMPERA'TURE ) 


11 FORMAT (18,6E20.5/E28.5,5E20.5)} 


T1l=0 

NLOO=0 

MAXTAT@MAXIAL 

TF(ITER=1)12,12,13 
12 TP(IFA3 )121, 121,13 

121 CALL SSHTR1 
T2=0 
L321 


IF(NPO( 155123, 123, 122 


122 I3=2 

123 IF(NPO(2) 313,13, 128 

124 T2=NP Of 4} 
TF(E2)13,13, 125 


125 IF(NPO(1))126,126, 127 
126 TF(NPO( 3 )=13128, 128,129 
127 IF(NPO(3)=-1)129, 129, 128 


128 €13<1.0 
Gerro 13 
129 C13=0.0 
13 PIM=6. 2831853 
DO 133J=2, MAXT 
DO 133T=1, MRT 
TF(I=12)132, 131, 132 
131 FRAC(I,J}e013 
GO TO 133 
132 FRAC(I,J)=( TERMI, +, 


hi oTERM(I, J, 3 )-+-(FULOCHHTR(I, 5,13) )*TERM(I,J,1) 


leHTR(I,J,13)*TERM(I,<,2) 1/((FULOG+HTR(I,J,1)+HTR(I,J,2) )*#TERM(I, J 


. 


2,1)-TERM(I,7,2))) 





CHAIN LINK (2582) @ Continued, 


133 CONTINUE 
WATESWATE-C(5 ) 
Wh Tl=Ti+1 
IF( I1-ITERM)17,17,15 


15 N100=2 


aby! 


18 


We 


OUTPUT 
OUTPUT 
OUTPUT 


, CUTEUT™ 
; OUTPUT 


OUTPUT 
OUTPUT 
OUTPUT 


OUTPUT ' 


; OUTPUT 
; OUTPUT 


ODTFUT 


C(5)=0.0 
DO 30Ke1,2 


LI=K 


ITEST=1 
R1l=RHTR(K) 
HD=HDIAM( K ) 
ARAT=FAREA(K) /CAREA 
CONL=ARAT 
TIF(K-1)18, 18, 19 
-HIN 
P2=PPUMP 
PISIGNe=PIM 


Nl=0 
Ne=s1 


TTAO,1 
ITAO, 3 


; ITAO,4, (I, Ie1,6) 


ITAO, 5 

TTAO, 10,(J,(POWER(I,J),I=1,6),J=2, MAXIAL) 
TTAO, 6 

ITA), 10, (J, (FRAC(I,5),I=1,6),J=2, MAXI ) 
TTAO,7 


| ITAO,11, (J; ((PRES(I,J,K},I=1,6),Kel,2),J=1,MAXIA 


; leno, 6 


ITAO, 11, (J, ((ENTH(I,3,K),I=1,6),K=1,2),J=1,MAXIA 


; ITAO,9 


TTAO, 11,7, ((FLOW(I,K),I=1,6),K=1,2) 
ITAO, 3 


; ITAO,91 
| ITAO, 11, (J, ({DNB(1,J7,K),I=1,6),K=1,2), Jel, MAXTAL 


TTAO, 92 


; TTAO, 11, (5, ((TEMN(I,2,K},I=1,6),K=1,2),J=2,MAXT) 


ITAO, 93 . 
TTAO, 10, (5, (TFMX(1I,J),I=1,6), 322, MAXT) 


HOUT = CONTRACTION RATIO AT INLET 
FAC2=HOUT 
FACI=ARAT*FAC2 
GO TO 22 
HTOP=0.0 
C1=0.0 

DO 21I=1,MRI 
HTOP-HTOP-+FLOW (I, 1)#RAREA( I )*ENTH(I,MAXIAL,1) 


Liety 





LINK (2,B2) = Continued. 


CHAIN 


20 
er 


23 
28 


Cl=C1+FLOW(I, 1)*RAREA(T) 
DO 20J=2, MAXI 
FRACT( I,J )=FRAC(I, J) 
CONTINUE 
HTOPSHTOP/C1 

H2=HTOP 

P2=PTOP 

PISIGN=PIM 
Nls1-+MAXTAL 

N2=-1 

FAC1=RAT1*ARAT 
FAC2=RATL 

CALL THERMO 

IF (K=2 )221, 222,222 
C(K)=1.0/{ QUAL2#VV2+( 1. O-QUAL2 )¥VL2 ) 
GO TO 225 

TF (H2-HL2 }221, 221, 223 
IF(H2-HV2 )22h , 220,221 
HTOP=HV2 

H2=HTOP 

C(K)=1.0/VL2 

JeN1+N2 

Cl=C(K)/62.43 

DO 23I=1,MRI 
PRES(1,.7,K)=P2 
ENTH(I,J,K)=H2 
TEMC(I,J,Kj=T2 
DEN(I,3,K)=Cl 

CALL SSHTR2 
LF(N100}30, 30,29 


29 WRITE OUTPUT TAPE ITAQ,2,1I 


30 


301 
302 


GO TO 16 

CONTINUE 

DO 3121, MRI 

fe = 12 301, 31, 301 

DO 302.J=2,MAXI 

FRAC(I, J )=(TERM(1, J, 4)-TERM(I, J, 3)+( FULOG+HTR(I,J,13))*TERM(I,J,1) 


1=HTR(I,J,13)*TERM(I,J,2))/( (FULOGHHTR(I, J, 1)4+H7R(I,J,2))*( TERM(I,J 


2,1)-TERM(I,3,2))) 


Gul 


Bell 
312 
523 

32 


55 


CONTINUE 

DO 32T=1, MRI 

TF(I-12)311, 32, 311 

DO 313J=2, MAXI 
ERR=ABSF( FRACT(1I, J}/FRAC(I, J)=-1.0) 
IF(ERR-ESP3 }313, 313, 14 

CONTINUE 

CONTINUE 

SUM3=0. 0 

DO 33i=1,MRI 

SUM3=SUM3+RARBA{ I) 
SUM3=SUM3*{DZ(1)*C(1)4DZ(MAXIAL )*C(2) ) 
C(5 }aC(5 )4+SUM3 
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CHAIN LINK (2,B2) ~ Continued. 


WATE=WATE4C(5 ) 
34 CALL SSHTR4 
500 RETURN 


* 
S 
: 
A 


SUBROUTINE SSHTR1 
DIMENSION 

COMMON 
BQUIVALENCE 
MRING=MRING 
MAXTAT=MAXTAL 
MCELL=MCELL 


INITIAL SET UP 


casa © 


1 HIN=HEUMP 
CON1=3. 38149989E-3 
CON2=6. 5616-2 
FARFA(1)=CON1=(RINT(1,1))**2 
FAREA( 2 j=CONL*(( (RINT(5, 1) )*¥*2)-( (RINT(4.1)}*#¥2)) 
HDIAM( 1 j=CON2*#RINT( 1,1) 
HDIAM( 2}=CON2*(RINT(5,1)-RINT( 4,1) ) 
RHTR(1)=(3.2808E-2 )}*RINT( 1,1) 
RHTR(2 )=(3.2808E-2 j *RINT(L, 13 
HT( 1 j=TcFu#(((LOGF(RINT(2, 1)/RINT(1, 1)})/TCIN)+1.0/((3.2808E-2 )*HI 
INT*¥RINT(2,1))) 
AT( 2 )=TCFUZ{ ( (LOGF(RINT(4. 1) /RINT(3,1)))/TCOU}+1. 0/((3.2808E-2)*HI 
INT*RINT( 3,1) )) 
TF(NEO{1)}102,102,101 

101 Cl=FARFA( 1) - 
FAREA( 1)=FAREA( 2) 
FAREA(2)=C1 
C1=HDIAM(1) 
HDIAM( 1)=HDIAM(2) 
HDIAM( 2 jeC1 
Cl=RHTR{ 1) 
RHTR( 1 j=RHTR(2 ) 
RHTR(2)=C1 
Cl=HT(1) 
HT(1)=<HT(2} 
HT( 2 j=:C1 
102 TWOGI=6.49029989E+11 

TWG=6.00WLL058E+10 
FULOGSLOGF(RINT(3,1)/RINT(2,1)) 
CARFA=CON1*(RINT(MCELL, 1) )**2 
SUM2:-0. 0 
DO 2T=1,MRING 
SUM1=SUM2 
SUM2=CON1*(RINT(I, 3) }**2 

2 RAREA( I )=SUM2-SUM1 
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CHAIN LINK (2,82; - Continued. 


SUM4=0.0 
DO 3I=1,MAXIAL 
SUM3=SUM4 
SUM4=(3. 2808E-2 )*RINT(I, 2) 
DZ{ TI )=SUM4-SUM3 
SUM3=SUM3=DZ(1) 
Cl=POWL*CAREA /SUM1 
DO 4Ie1,MRI 
POWER(I, MAXIALjCL 
DO 4J=1,MAXI 
4 POWER(I,J}=DUMMY(I,J) 
C2=FLO*CAREA /SUM1 
Cl=C2*(1.O0+RECIRC } 
DO 5r=1,MRI 
FLOW(I, Lj=C1 
5 FLOW(I,2j=xC2 
WA TE=( SUM1*SUM3*¥DCDEN )-+-(RAREA ( MRING )*SUM4-*RRDEN ) 
C(5 j=0.0 
DO 6I=1,2 
AC3(1, 1 )=-0. 0093/HDIAM(TI } 
AC3(2,1I )=-0.0017/HDIAM(T) 
6 AC3(3,T}=-0.0048/HDIAM(LI) 
DZ2=0.0 
SUM1=0.0 
ACH(1,1'=0.° 
ACU ( MARTIAT., 1. }=SUM3 
ACL(MAXTAL, 2 }=0.0 
ACK( 1,2 \=SUM3 
DO 71l=2, MAXI 
DZ1=DZ2 
DZ2=D2Z,( 1} 
SUM1=SUM' +(DZ1+D22}/2.0 
ACh’ T,1)=SUM1 
7 ACK(I,2)=SUM3-SUM1 
DO 8J=1,2 
DO 8I=1, MAXTAL 
Cl=AC3(1, 3 )*ACK(I, J) 
C2=AC3(2.7)*ACK (I, 7) 
C3#AC3(3,5)*ACK(I, 3) 
DCOR1(I,J}=0.43541.236*EXPF( CL) 
DCOR2(T, JO. 825+2. 36*EXPF( C2) 
8 DCOR3(T, 7)=-0.41*EXPF(C3) 
LBl=#1+LBC(3)}-LBc(2} 
Cl=U(3,1LB1})/2.0 
C2=U(3,1)/2.0 
C3=01/2.0 
Chece/2.0 
DO 9522, MAXI 
DO 9I=1, MRI 
TERM(I,d.1)=CL 
TERM(I, J, 2 )=C2 
TERM( T ,&, 3 jeC3 
TERM(T, 3,4 )=ch 


W 
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CHAIN LINK (2,B2) ~ Continued. 


DO 9K=1,2 


12 DO 13K=1,2 
DO 13J=#2, MAXI 
DO 13I=1,MRI 
13 HTR(I,J,K)<HT(K) 
TF(NPO(2) 500,500, 14 
14 Ti=NPO( 1) 
IF(I1)500,500, 15 
15 I2=NPO( 3) 
DO 16J=2, MAXI 
16 HTR(I1,J,12)=0.0 


C 
500 RETURN 

BND 

* LIST 

* FORTRAN 

* LABEL 
SUBROUTINE SSHTR2 
DIMENSION 
COMMON 
BQUIVALENCE 

C 

C SET-UP 

C 


i = (59H2 MAXIMUM NUMBER OF TRIALS EXCEEDED IN SUBROUTINE S 

1HTR2 } 

2 FORMAT (228 RADIAL FLOW SWEEPT3) 

3 FORMAT (36H RATIO OF CALCULATED/ACTUAL FLOWJ2(1PE20.5)) 

4 FORMAT (18H PRESSURE DROP1PE38.5,EB20.5) 

5 FORMAT (40H PROGRAM TERMINATED IN RADIAL REGIONI2) 

6 FORMAT (17H ASSUMED FLOW1PE32.5,E20.5) 

7 FORMAT (29H CALCULATED PRESSURE DROP2(1PE20.5)) 
II=Ii 
N35=0 
K1=N14N2 
K2=N1+NO=MAXTAL 
T1=2 
T2=0 
T3=1 
C1=1.0 
IF(ITER-1)8,8,11 

8 IF(Ii=1}9,9,11 

9 C20=0.0 
DO 101=1,MRI 

10 C20C20+KAREA( I) 
C19=FLO*CAREA /(20.0%C20) 
ASQeCARFA*CAREA¥THWOGS 
ESP4=1. 5%ESP3 
ESP5=2. O#ESP3 
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CHAIN LINK (2,B2) = Continued. 


11 IF(NPO(2))15,15,12 
12 IF(NPO(3)-11)15,13,15 
13 I2=NPO( 4) 
FLOW(12,IT)=0.0 
DO 131J#2, MAXI 
131 DEN(I2,J,1I)=0.0 
C1=C20/(C20-RAREA(I2)) 
IF( 12-53 }15,14,15 
wh L3=2 
15 FLOTA=FLO 
TF(II-1)17,17,16 
16 IF(QUAL2)17,17,161 
161 FLOTA=QUAL2*FLO 
C2=FLOTA*CARBA*C1/C20 
DO 1642=1,MRI 
i ete 163, 162, 163 
162 IF(IT-NEO(3})163, 164, 163 
163 FLOW(I,II )=ce 
164 CONTINUE 
Cl=QUAL2¥C1 
17 DFLOW=C1*C19 


START RADIAL SWEEP 


Ca aC2 


18 SUM8=0.0 
N35=2N35+1 
TF(N35-ITERM)21,21,19 
19 WRITE OUTPUT TAPE ITAO,1 
20 WRITE OUTPUT TAPE ITAO,2,N35 
WRITE OUTPUT TAPE ITAO, 3,FLOW1,FLOW2 
WRITE OUTPUT TAPE ITAO,4,PDROP1, PDROP2 
N100=2 
GO TO 500 
21 IF(N35-2 )23, 22, 23 
22 Tl=1 
23 DO 50I=1,MRI 
TF(T-12 )2h,50, 2h 
2h MRIN=I 
N34=0 
FAC3=CON1*®RAREA(T) 
25 N3kt=N3u+1 
IF(N34-ITERM)28, 28, 26 
26 WRITE OUTPUT TAPE ITAO,1 
27 WRITE OUTFUT TAPE ITAO,5,MRIN 
WRITE OUTPUT TAPE ITAO, 6, (DPHO( J), J=1,2) 
WRITE OUTPUT TAPE ITAO,7,(PHI(J),J=1,2) 
COMTO 20 
28 IF(1I1-1)29, 29, 30 
29 DP+0( 1 jeFLOW(I, II )=DFLOV 
30 DP+0( 2 j=xFTLOW(I,IT) 
DO 327«I1,2 
FLOC=DPHO( J) 
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CHAIN LINK (2,B2) ~ Continued. 


FACK=FLOC/FAREA(IT) 
GHD=FACH*HD 
GSQE=FLIC¥FLOC/ASQ 
GSQP=(TW0G.T/TWOG }*GSQE 
C8=FACL/( 1.08406} 
COn{ 0.2340. O94*C8 )*( 1. OF+06) 
ClLO=EXPF(-1.5*C8) 

31 CALL SSHTR3 
IF(N100)32, 32,27 

32 PHI(J)=PRES(I3,K1,IZ) 
IF(NFO(2 ) }33, 33, 40 

33 IF(ITER-1)34, 34, 40 

3 TF{TTA3)35, 35, 40 

35 TF(MRI-2 149, 36, 36 

36 DO 39K=1,MAXTAL 
DO 39de2, MRI 
ENTH(J,K, IT je=ENTH(1,K, II) 
PRES(J.K, IT j=ERES(1,K, 11) 
TEMC(J,K, IT)=TEMC(1,K, II) 
DNB{ I,K, Ir) =DNB(1,K, It) 
IF( K- 1)39, 39, Si 

37 IF(K-MAXIAL)38, 39, 39 

38 DEN(J,K, IT }eDEN 1, K, II) 
TEMA( I,K, TIj=TEMI(1, K, II} 
HTR(J,K, ID)=HTR(1,K.II)} 

39 CONTINUE 
SUM8=SUM7*C20/RAREA(1) 
GO TO 65 

hO IF(N35-1)49,49, 41 


FLOW PERTUREATION TO ACHIEVE DESIRED PRESSURE DROP 


PSB ae} 


41 ERR=PHI(2)-C12 
C1-ABSF( ERR/C12) 
IF(C1-ESP4 349,49, ho 

42 TF(ERR)43,49, 4h 

43 FLOW(I,II j=1. 06*DPHD(2) 
GO TO 25 

Wh TF(PHAI(1)-C12)46,45,45 

5 FLOW(I,IT}=0. 97*DPHO( 1) 
GO TO 25 

46 XINT=(C12-PHI(1))/(PHI(2)-PHI(1)) 
FLOW (I, I }=DPHO( 1} +X INT*DFL AW 
GO TO 25 

49 SUMB=SUM8+SUM7 

50 CONTINUE 

51 IF(N35-1)52,52,61 


GENERATE AVERAGE PRESSURE DROP 


OQ 2 AQ 


52 C1=0.0 
Cez1. CE-++06 
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CHAIN LINK (2,B2) = Continued. 


Ca Ci -@a 


C12=:0.0 
C3=T20 
DO 58I-1,MRI 
TF(I-12)54,53,54 
53 IF(II-NFO( 3) )54,531, 54 
531 C3-C20-RAREA(T) 
GO To 58 
54 ACL(I)=PRES(I,K1,II)-PRES(1,K2, II) 
C12=C12+AC1( I )#RAREA(T) 
IF(AC1(T )-C1)56,56,55 
55 Cl=AC1(I} 
56 IF(C2-AC1(1) }58,58,57 
57 Ce=AC1(T) 
58 CONTINUE 
C12=012/C3 
ERR1=0. 3/C1 
TF(ERR1-ESE4)59, 60,60 
59 ERR1=ESP) 
60 ERR=(C1-C2)/01 
TF(ERR-ERR1 )65,65, 18 


ADJUST FRESSURE DROP FOR TOTAL FLOW 


61 C2=0.0 
DO 62T=1,MRI 

62 Ce=C24FLOW(I, IT) *RAREA(T) 
C1=C2 /( CAREA*FLOTA ) 
C2=ABSF(1.0=-CL) 
TF(C2-ESP5 )63,63,67 

63 DO 64I=1,MRT 

64 FLOW(T IT }=FLOW(I,IT)/c1 

65 C5 }=C(5 }4SUM8 
IF(ZI-1566,66,500 

66 PTOP=FRES(I3,K2,IT} 
GO TO 500 

67 FDROP1=PDROF2 
PDROF2=C12 
FLOW1=FLOW2 
FLOW2=C1 
T=2*(N35/2 } 
IF(I-N35 }69,68,68 

68 C12=1.05*PDROP2 
GO TO 18 

69 IF(FLOW2-1.0)79,65,71 

70 C12-PDROP1*(1.O+FL011)/2.0 
GO T) 18 

Tl IF(FLOW1-10)72, 72,73 

72 XINT=(1.0-FLOW1)/(FLOW2=-FLWW1) 
C12-PDROP14X INT*{ PDROP2=PDROP 1) 
GO TO 18 

73 Cl2=2,0#PDROP1/{ 1. O+FLOW1) 
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CHAIN LINK (2,B2) - Continued. 


Go 70° 18 


C2 


*k 
iS 
2" 


SUBROUTINE SSHTR3 
DIMENSION 
COMMON 
EQUIVALENCE 
1 FORMAT (39H PROGRAM TERMINATED IN AXIAL REGIONI3) 
TIeTI 
MRIN&MRIN 
Q2=0.0 
SUM7=0. 0 
TF(N34-15101, 101, 7 
101 IF(N35-1)2,2,7 
2 IF(ITER-1)3, 357 
3 IF(Tl-1)4,4,7 
h IF(NPO(1})6,6,5 
5 SIDE1=0.0 
SIDE2=1.0 
GO TO 7 
6 SIDE1=1.0 
SIDE2=-1.0 
7 IaNl+Ne 
P2=PRES(MRIN,I,IT) 
H2=ENTH{ MRIN,I,IT) 
ARATSFACL 
TTEST=1 
Tl=MRIN 
IF( it=NPO{3))8, 71,8 
TL TF(NPO(45-138,72,8 
72 IF(MRIN~2 )8,73,8 
73 MRINe1 
S Gam, CNOZ 
MRIN=I1 
IF(N100)10,10,9 
9 WRITE OJTPUT TAPE ITAO,1,I 
GO TO 500 
10 ARAT=FAC2 
11 CALL PEXP 
TF(N1OO)12,12,9 
12 ITEST=0 
A(1)=H2 
CO=HL2=H2 
C62VL2 /Vir2 
C7sHV2-HI2 
IF(C5)13, 13, 14 
13 Cl=1.0 
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CHAIN LINK (2,B2) = Continued. 


GO TO 15 

14 Cl=e( C5 /C7)#*0. 75 
Cl=EXPF(-=0.532*C1) 

15 Clel. 4*C1/(C6*£0. 333( 
@1@127-C1 
C220. 529¥C54072(0. 548-1. 12*C6) 
DO 16J=2,MAXTAL 
T=aN14NoFI 
ACB( I, 1)=C24C7*DCOR3(I 
ACB(I,2)=C7*DCOR2(T, IT) 
ACT(I,1)#C1#DCORL(I, IT) 
ACO(T)=C9*ACc7(I,1) 

16 ACLO(I }=ACA(I, 134C10*AC8(I,2) 
DO 33K=2,MAXIAL 
To N1+N2*K 
JaT-N2 
MAXTA&T 
D2=FULOG=HTR(MRIN, I, 1)+HTR(MRIN,I,2) 
TF(K-2)17,17,18 

17 DZ1=0.0 
GO TO 20 

18 IF(K-MAXTIAL}19,21,21 

19 DZz1eD7Z(J)/2.0 

20 DZ2=DZ(I)/2.0 
POWER2=:P OWER( MRIN, I) 
DTC22=TEMC(MRIN, I, 1)-TEMC(MRIN, I,2) 
FRAC2=SIDE2*FRAC(MRIN, I) 
CONK=:DZ,( I )#FAC3 
GoTo 22 

21 DZl=D2(7)/4.0 
DZ2=DZ1 
POWER2=F CWER{MRIN, J) 
DTC22=TEMC (MRIN, J,1)-TEMC(MRIN, J,2) 
FRAC2=SIDE1+SIDE2*FRAC(MRIN, J) 

22 IF(II-1)24,24,23 

23 FRAC2=1.0-FRAC2 

eh TF(MRIN-NPO(L} 326,25, 26 

25 DTC22=0.0 

26 CALL PXHTR 
TF(N100 )28,28,27 

27 WRITE OUTPUT TAPE ITAO,1,I 
GO TO 500 

28 IF(K-MAXIAL 329, 32, 32 

29 Cl=1.0/(VoID2*vV2+{ 1. O-VOID2 )*V12 ) 
PRES( MRIN,I,IIj}=P2 
ENTH(MRIN, I, TI j=H2 
TEMC(MRIN,I,II)=T2 
SUM7=SUM74+¢01*CONL 
DEN(MRIN,T,IT}=C1/62.43 

30 CALI HTRAN 
IF(N100}32, 31,27 

31 HTR(MRIN, I, II )=TCFU/RH2+HT( IT) 


et) 
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CHAIN LINK (2,B2) = Continued. 


TEMN(MRIN, I, II )=1w2 
32 CALL BURN 
DNB( MRIN, I, Iz )eDNB2 
33 CONTINUE 
T=N14+N2*MAXIAL 
ARAT=0.0 
TTEST=1 
34 CALL PEXP 
IF(N100)35, 3559 
35 PRES(MRIN,1I,II)=P2 
ENTH(MRIN,T, II )=H2 
TEMC(MRIN, I, II )=T2 
500 RETURN 
END 


+ LIST 
FORTRAN 
x LABEL 
SUBROUTINE SSHTR4 
DIMENSION 
COMMON 
EQUIVALENCE 
IF(ITER-1)1,1,11 
1 IFUEL<1+1BC(3)-LBC(2) 
DISTL{1)=0.0 
DISTL( IFUEL )=FULOG 
Tl=IFUEL=1 
DO 2I=2,T1 
2 DISTL(Iy=LOGF(U(2,1)/U(2,1)) 
TP(RPO(1))}3,3,8 
3 Tlel 
[2:22 
TF(NP (3 }=1)4,4,6 
T3=2 
These 
C13e-FULGG 
ClheTI.O 
GO TO 101 
T3=1 
Thel 
C13=FULOG 
C1lh4=-1.0 
GO TO 101 
8 Ilx2 
T2=1 
IF(NFO(3}-1)9,9,10 
9 I3=2 
GoeTro 7 
10 I3=1 
GO TO 5 


*k 


Sq) ese 


=<) Oy} 


FIRST GUESS FOR AVERAGE FUEL TEMPERATURE 


© © 
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CHAIN LINK (2,B2) - Continued. 


101 ITEST=1 
P2=PPUMP 
H2=HON+P OW 1/FLC 

102 CALL THERMO 
Cl=T2+2000.0 
DO 103J=2,MAXI 
DO 103I=1,MRI 

103 TFBAR(I, djl 
GO TO 500 


CALCULATED AVERAGE AND MAXIMUM FUEL TEMPERATURE 


CQ GQ Aa 


11 DO 22J=2,MAXT 
DO 21t=1,MRI 
ChePOWER(I, 2) /TCFU 
TF(Z-NPO(4))12,13,12 
12 TFI=TEMC(I,3,I1)+c4%(1.0-FRAC(I, J) )*HTR(I,J,11)/PIM 
eee 1,5, 12 aC aERnC(T,0 
GO-TO 1 
13 D2=TEMC( 1, 7,13 )+Ch*HTR(I,J,13)/PIM 
DIPC22=D2+Ch¥(C13#TERM(I, J,14)4+C14*(TERM(I, J, 3)-TERM(I,J,4))) 
Te 4=1 515,15, 14 
14 TFI=DTC22 
TRC=D2 
GOO 16 
15 TFI=D2 
TF OsDTC22 
16 CleTFI+CUSTERM(T, J, +) 
COe( TFC-TFI4CHY(TERM( 1,7, 3)-TERM(I,J,4)))/FULOG 
TIMX(I,J)=IF 
G(1j=TFI 
DO 19Ke2, IFUET. 
SUM1=0.0 
DO 1715=1,5 
C3=( 1541 )*(15+1) 
17 SUM1=SUM1+BMAT(I, 7,15)*U(I5+2,K)/C3 
C32Ch*SUM1 
G(Ky=C14C2*DISTL(K)=C3 
TF(G(K)=-TFMX(I,J) 519,19, 18 
18 TFMK(I,7>=G(K) 
19 CONTINUE 
SUM1=0. 0 
SUM2=0.0 
T5#LBC(2) 
DO 20Ke3, IFUEL, 2 
[5eT5+2 
SUM1eSUM14RC(15-2)+4. OFRC(I5-1)+RC(I5) 
20 SUM2=SUM2+R0(15-2)#G(K-2)44. O¥RC(T5-1)*G(K-1)4RC( 15 )*G(K) 
TFBAR( I, J =SUM2/SUM1 
21 CONTINUE 
22 CONTINUE 
500 RETURN 
END 
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CHAIN LINK (2,B2) = Continued. 


KOK 


i 
2 


3 
h 


LIST 

FORTRAN 

LABEL 
SUBROUTINE CNOZ 
DIMENSION 
COMMON 
EQUIVALENCE 
C1l=ARATXARAT 
GSQE=GSQE/C1 
GSQP=GSeQF/C1 
NSKP=15 

C3=5.0 

Che2. O¥C3 
C5=C3*C3 

C6=17 OE-5 
TF(T)=-1)1,1,2 
P2=:PPUMP 
H2=HIN 

fort 3 
P2=PTOP 

H2=H TOP 

Pl=P2 

H1l=H2 
IF(MRIN-1)4,4,7 
TF(N34-1)55557 
IF(N35-1)6,6,7 
CALL CN@Z1 
TF{(NI00<2 17, 500, 500 
CALL CNOZ2 
RETURN 

END 


LIST 

FORTRAN 

LABEL 

SUSRIUTINE CNOZ1 
DIMENSION 

COMMON 
EQUIVALENCE 


FORMAT (5482 PROGRAM NOT EQUIPPED TO HANDLE SUPERHEATED PLENUM) 
FORMAT (69H2 PROGRAM NOT EQUIPPED TO HANDLE EXPANSION INTO SUPE 


IRHEATED REGION} 


FORMAT ({42H2 MAXIMUM NUMBER OF ITERATIONS EXCEEDED) 
FORMAT (43H FROGRAM TERMINATED IN SUBROUTINE CNOZ1) 


STORAGE LOCATIONS FOR VARIABLES WHEN SATURATION IS ACHIEVED 


SOU(1) = PRESSURE 
SOU(2) - ENTHALEY 
SOU(3} = ENTROPY 
SoUC4S = VELOCITY**2 
Sou(5} = FLUX#*2/G 


SOU(6) « SPECIFIC VOLUME 
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CHAIN LINK {2,B2) ~ Continued. 


SOU(7) = QUALITY 

sou(8) = VOID FRACTION 

S0U(9) «= LIQUID SPECIFIC VOLUME 
SOU(10} = VAPOR SPECIFIC VOLUME 


STORAGE LOCATIONS FOR CRITICAL FLOW PARAMETERS 


S9U(11) ~ PRESSURE 

SOU(12) - ENTRATPY 

SOU(13) = FLUX**2/c 

soutih) = SPECIFIC VOLUME 

S9U( 15) - QUALIT 

SOU(16) = VOTD FRACTION 

SOU(17) - LZQUID SPECIFIC VOL 
soufi85 = VAFOR SPESIFIC VOLUME 


DETERMINE PLENUM CONDITIONS 


emer ©. 2 C2 CQ C2 Co Ca Ca ea AQ 


NAA=2 
XXX=P1 
5 CALL GNOZ3 
TF(N1LO00-2 )6,9,9 
6 NAA=NAA 
J=NAA 
=J] 
Hi 2a P( J j)#XINT#(HP(1)-AP( 
HVZ2=HG (7 )¢XINT* (AG(T)=HG(d 
TF(H2-HV257,13,8 
7 IF(H2-HL2}10,13,13 


9 
yy 


“~ 
u 


C PLENUM IS SUPEREEATED 


8 WRITE OUTEUT TAFE TTAO,1 
QO WRITE QIEUT TAFE ITAO,4 
W100=2 
GO TO 500 


PLENUM 7S COMPRESSED 7IQUID 


C20 2 


10 NAA=5 
XXXehl 
Lees. CNOZ3 
TF(N100-2)12,9,9 
12 =NAA 
omNAA 
Tevfl 
P2=FSAT( TI4XINTSS PSAT(I}-PSAT( J)) 
Vida VF oT U4XINT*(VE(I)-VEF(T)) 
Ri2=H1 
HV2=0.0 
Vile TWoG*(P1-F2 412 
GO TO 14 





CHAIN LINK (2,32) ~ Continued. 


© 
@ PLENUM IS INITIALLY SATURATED 
C 
13 P2=P1 
VL2=VF (J S4XINT*! VF(Ij-vG(7)) 
V1=0.0 


STORE SATURATED PLENUM VARTARLES 


ba G2 C2 


1h VW2=VG( Fj)4XINT#(VG(L)-VG(5)} 
ST2aSF( J) +XiNT*(SF(I)-SF(T)) 
SV2=SG( 7 +X INT*(SG(Ij-SG(5)) 
QUAL2=( H2-HL2 ) /{HV2=HT2 ) 
VOIC2=QUAI2 
Cl=VI2+QUAL2#(VV2-VL2 | 
SOUi 1)=P2 
SO0U( 2 )=He 
SOU! 3 j=SIO+QUAL2*\ SV2=S72 } 
SU j=aV1 
SOU(5 3=V1/( TWOG*CLECL) 
SOU(6)=C1 
SOU(7 }=QUAL2 
SOU(8 }=VUTD2 
SOUL9 j=VL2 
SOU{ 10}=Vv¥2 
IF(P2-50.0)141, 1421, 142 

141 VOLUM=< 

G(3}=S0u5 ) 
ea > 32 


DETERMINE MAXIMUM MASS FLUX 


O22 


Lhe Seas 20 3° 
TST=0 
T2e0 
P2xP2=5.0 
Goat 17 
143 F2=50.0 
15 TCTeTCT+1 
IF( ICT=I'TERM!17,17,16 
16 WRITE CUTPUT TAPE TTAO,3 
GO TO 9 
17 G1P(1'=F2-C3 
G1P( 2 )j=-P2473 
G1P{3)=F2 
DO 26Ke1, 3 
NAA=2 
XXX=G1F(K ; 
18 CALL CNOZ3 
TF(N100<2 319,99 
19 NAA=:NAA 
ceNAA 
T=J+1 





CHAIN 


LINK (2,B2) ~ Continued. 


20 


el 


a2 


23 


a 


20 


26 


261 


ag 
28 


eo 
30 


Gal 
311 
312 


32 


33 


HV2eHG( I }+XINT*(HG(I)-HG( I 
T1=0 

QUAL2={ S2-SL2)\/(Ssv2-SL2) 
Cl=H12+QUAL2#{ HV2-HL2 ) 
CleTWOG.*ENOZ*(H1-C1) 
V2=V14C1 

Tl=T1+1 

IF(I)-NSKP )21,21, 16 
C2=C1L¥EXPF( -V2*RUSO ) 
ERRH1=V14C2-V2 
ERR=ABSF(FERRH1/V2 ) 
IF(ERR-C6 323, 23,22 
V2=\/0-+-ERREL 

GO TO 20 

HexH1+(V¥1-V2 i /TWOGL 
QUAL2=(H2-HL2} /( HV2-HL2 ) 
IF( QUAL2-1.0)25,25, 2) 
WRITE OUTPUT TAPE ITAO,2 
GO TO 9 

VL2=VF( J}+XINT*(VF(I)-VF(J)) 
We2eVG ( TI4XINT*( VG(I)-VG(5)) 
VOLUM=VL2+QUATL2*{ VV2-VL2) 
G(K)=ve/( VOLUMEVOLUMETIVOG ) 
Cl=(G(2)-G(1) /ch 
C2=(G(2)4G(1)-2.0%G(3))/C5 
IF(ICT-1)261,261, 28 
ate 933, 33527 
meee) 32, 32,28 

ERR ABSF( C3%C1/G( 3) 

TF ( ERR-ESE 3) 32, 22,29 
IF(C2}31, 30, 30 

P2=G1F (3 )425.0%CL/ABSF( C1} 
GO TO 311 

P2=G61P(3)-c1/ce2 
TF(P2-S9U(1) 315, 312, 312 
P2=S0U(1)~10.0 

GO TO 15 

SOU(11)=Pz 

SOU(12 )=H2 

$0U(13 )=G(3) 

Sout 1) }=VOLUM 

SOU 15 J=QUAL2 
SOU(16)=QUAL.2 

S0U(17)=VL2 

sou(18}-vve 

GO TO 500 
Cle(G(2)-G(1})/ch 
ERR=ABSF{ C3¥C1L/G( 3) ) 

IF( ERR-ESP 3 )32, 32, 34 
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CHAIN LINK (2,B2} ~ Continued. 


34 [2-1 
IF(C1)143, 32, 32 
500 RETURN 


ok 
3 
: 
I> 


* LABEL 
SUBROUTINE CNOZ2 
DIMENSION 
COMMON 
EQUIVALENCE 


1 FORMAT (26H2 NOZZLE FLOW IS CHOKED) 
2 FORMAT (oH2 MAXIMUM NUMBER OF ITERATIONS EXCEEDED) 
3 FORMAT (43H PROGRAM TERMINATED IN SUBROUTINE CNOZ2) 


DETERMINE ACTUAL PRESSURE DROP 


C2 2 © 


IF(GSQP-SOU(13))7,4,5 
4 P2eSOU(11) 
H2=S0U(12) 
VOLUM=SOU( Lt) 
QUAL2=S0U(15) 
VOTD2=S0U( 16) 
VL2=S0U( 17) 
vve=-sou(18) 
GOeTO 22 
5 WRITE OUTPUT TAPE ITAO,1 
6 WRITE OUTPUT TAPE ITAO,3 
N1O00=22 
GO TO 500 
7 IF(GSQP-SOU(5))8,8,9 


COMPRESSED LIQUID EXHAUST 


C22) C2 


8 H2=SO0U(2 } 
VOLUM=S0u(6) 
P2::F'1=GSQP*#VOLUM 
QUAL2=0. 0 
VOID2=0. 0 
VL2=S0U( 9) 
VV2eS0U( 10} 
VOLUM#VL2 
GO TO 22 


SATURATED EXHAUST 


™ a © 


9 S2esSon( 3) 
VleSou( 4) 
ICT:0 
P2=SO0U(1)-+25.0 
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CHAIN LINK (2,B2) = Continued. 


C2)C2C2 


10 ICTerCT+1 
TF( ICT-ITERM)12,12,11 

11 WRITE OUTPUT TAPE ITAO,2 
GO TO 6 

12 G1P{1)=P2.c3 
G1P( 2 )=P24+C3 
GlP(3)=Pe 
D® 20K=1, 3 


13 CALL CNO0Z3 
IF(N1LO0©2}14,6,6 

14 NAA=NAA 
J=NAA 
Tagel 
Si2=SF{ J )AXINTY( SF( I) -SF( 
Sv2=SG( 7 }+xIntT*(se(I)-se( 
HL2-HF( J )+XINT#( HF ( T)-HF( 
HV2=HG (J )4XINT*(HG(L)-HG( 
T1=0 
QUAL2=(S2-SL2)/(SV2-SL2) 
Cl=HL2+QUAL2*({ HV2-HL2 ) 
Cl=TWOGJ*ENOZ#(H1-C1) 
V2=V14-CL 

15 Tl=I1+1 
TF(I1-NSKP }16,16,11 

16 C2=C1¥EXPE( -V2*RUSQ } 
ERRH1=V14+C2=-V2 
ERR=ABSF( ERRH1/V2 ) 
TF(ERR-C6)18,18,17 

17 V2=V2+ERRAL 
Ge TO 15 

18 Ho=H14+(V1-Vve } /TWOGT 
QUAL 2=( H2-Hr2 }/( HF2-HI2 ) 
er OUATO=1.0319,11,11 

19 VL2=VG( T)4XINTH(VE( IS <VF(J)) 
Weel (Jj4XINT*(VG(I)-VG(J)) 
VOLUM=VL2+QUAL2#( VW2=VL2 ) 

20 G(K)-V2/(VOLUM#VOLUMM1W 0G } 
Cl=(G(2)-G(1)1/c4 
ERR-ABSF( (G{3)/GSQP)-1.0) 
IF{ ERR-ESP3 )22,22,21 

21 P2=-G1P(3)+(GSQP-G(3}}/c1 
GO TO 10 


T)) 
J)) 
33 
J) 


MOMENTUM AND KINETIC ENERGY TERMS 


22 ENK2=GSQE*VOLUM* VOLUM 
PK2=GSQP*VOLUM 
VOID2=QUAL2 


500 RETURN 
END 
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CHAIN LINK (2,22) - Continued. 


* 
| 
is 


SUBROUTINE CNOZ3 
DIMENSION 
COMMON 
EQUIVALENCE 


STEAM TABLE ITERPOLATION ROUTINE 


C22 2 


1 FORMAT (51H2 TRIAL VALUE IS TOO HIGH FOR STEAM TABLE VALUES) 

2 FORMAT (50H2 TRIAL VALUE IS TOO LOW FOR STEAM TABLE VALUES) 

3 FORMAT (43H PROGRAM TERMINATED IN SUBROUTINE CNOZ3) 
NAA=NAA 


TF(NAA-2)4,4,8 
k IF(XXX-HEAT(J))8,7,5 
5 WRITE OUTPUT TAPE ITAO,1 
6 WRITE OUTPUT TAPE ITAO, 3 
N100=2 
GO TO 500 
7 WAA=123 
XINT=O. 0 
GO TO 500 
8 IF(HEAT(I}-XXX)11, 10,9 
9 WRITE OUTPUT TAPE ITAO,2 
GO TO 6 
10 NAA=1 
XINT=0.0 
GO TO 500 
1l Yel 
Te( 1. OFY 34(XINT-Y }#(XXX=HEAT(1))/( VINT-HEAT(T) ) 
TF(HEAT(T)-XXX)11, 11,12 
12 JeT-1 
IF(HEAT( J) <XxXxXJ14, 14, 13 
13 I=J 
GO"PO 12 
Lh We (XTRA T( J) )/(HEAT(T) “HEAT T)) 
NWAA=J-123%(NAAjo1) 
500 RETURN 


* Ok 
ea 
© 
ag" 


SUBROUTINE PEXF 
DIMENSION 
COMMON 
EQUIVALENCE 
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CHAIN LINK (2,32)+ Continued. 


Ga: 02 


C2 Go.Ga 


LD Jal ge Fa 


1 FORMAT (61H2 MAXIMUM NUMBER OF ITERATIONS EXCEEDED IN SUBROUTIN 


1E PEXP ) 

CSaARAT¥ARAT 
GSQE=CSQE*C5 
GSQP=GSQP*C5 

AR1=H2+ENK2 

AP1=P2+(2. OXARAT=C5 )*PK2 
T1=0 


TEST NUMBER OF ITERATIONS 


2 [1=-T1+1 
TF(I1-I TERM j4,4,3 

3 NLOO=2 
WRITE OUTPUT TAPE ITAO,1 
GerTO 500 


MOMENTUM, ENERGY, AND ERROR TERMS 


4 CALL THERMO 
TF(QUAL2 5,556 

5 ClxVL2*#VL2 
Ce=0 
C32ViL2 
Ch=0 
GOTO 9 

6 Cl=#1.0-QUAL2 
BEeCIL)7, 7,8 

7 Cl=:0.0 
C2=VV #Vve 
C3=0.0 
CheVv2 
GOTO9 ~ 

8 CS=C1#VI2/(1.0-VOID2 } 
C3ef14C5 
CleC3¥*C5 
CSaQUAL2#VV2/VOLD2 
CheQUALZ¥C5 
Cath ¥C5 

9 ENK2:-GSQE*( C1402) 
PK2eGSQP¥( C3454 } 
ERRH2=AH1-ENK2-H2 
FRRP2=AP1=PK2-F2 
TF(I1-1)12,12,10 


CONVERGENCE TESTING 


10 CleABSF( (ERRH2/H2 ) 
C2=ABSF( ( ERRF2/F2) 
TF(C1-ESP3)11,11,12 

11 IF(C2-ESF3)500, 500, 12 
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CHAIN LINK (2,32) = Continued. 


* * 


‘© hi P Ee @ | 


ik 2 


500 


NEW VALUES OF PRESSURE AND ENTHALPY 


PesP2+ERRP2 
H2=He+ERRH2 
GO TO 2 


SUBROUTINE PXHTR 
DIMENSTON 
COMMON 
EQUIVALENCE 


INITIAL SET UP 


i=Qe 
Q2=( POWER2*FRAC2 )-+( PISIGN*L£CFU*DTC22 ) /D2 
C11l=(Q1*DZ14Q2=DZ2 ) /FLOC 
AH1=H2+ENK24C11 
AP1=P24PK2 
H2=AH1 

LCT=0 


CALCULATION 


TCT=ICT+L 
CALL THERMO 
IF{QUAL2 )3, 3,4 
Cl=VL2*VL2 
C2=0.0 

C3=VL2 

ch=0.0 

GO TO 9 

Cl=1. O-QUAL2 
MCC )5,5,6 
C1=0.0 
C2=VV2*VV2 
C3=0.0 

Ch=VV2 

GO TO 9 
C5=C1¥VL2/(1.0-VOID2 ) 
C3=C1L*C5 
Clet3%C5 
C5=QUAL2*VvV2 /VOID2 
Ch=QUAL2*C5 
C2=Sh*C5 

GOTO 9 
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CHAIN LINK (2,B2) - Continued. 


9 C5+(0. eee O-QUAL2 ) /VISL2 )))**0:2) 
ENK2=GSQE*(C14C2 
ae O+C5 ) 
ERRH2=AH1-ENK2-H2 
ERRP2=AP1-PK2-P2 
IF(ICT-1)16,16,10 


TEST ERROR 


1 ae | 


10 Cl=ABSF(ERRH2/H2 } 
C2=ABSF( ERRP2 /P2 ) 
IF(C1-ESP3)11, 11,13 

11 IF(C2-ESP3}12,1?, 13 

12 PK2=GSeP*( C3408 )¥{1.0-C5) 
Q1=-02 /(PIM*R1) 

GO TO 500 


TEST NUMBER OF ITERATIONS 


C2 2 2 


13 IF(ICT-ITERM)16,16, 14 
14 N1l00=2 
WRITE OUTPUT TAPE ITAO,15 
GO TO 500 
15 FORMAT (one TO) MANY TRIALS IN SUBROUTINE PXHTR) 


NEW VALUES OF ENTHALPY AND PRESSURE 


2 © 


16 H2=H2+ERRH2 
P2=P2*ERRPe 
Go TO 1 


500 RETURN 


SUBROUTINE HTRAN 
DIMENSION 
COMMON 
EQUIVALENCE 
1 FORMAT (63H2 MAXIMUM NUMBER OF ITERATIONS EXCEEDED IN SUBROUTIN 
1E HTRAN1) 
TF( QUAL2 )2.2.6 


PRESSURIZED LIQUID 


C22 © 
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CHAIN LINK (2,B2) = Continued. 


2 Cl=0.023*{ TCL2/HD )*{ (GHD/VISL2 )**0. 8}*( (CL2*VISL2/TCL2)**0. 33) 
C2mT2+)Q1/C1)-1.97*(Q1**0. 26) 
IF( C2=TSATU2 )3, 3,5 
3 TW2=T2491/C1 
h RH2sR1*C1 
GO TO 500 
5 HieH? 
Cl=T2 
He=Hi 2 

51 CALL THERMO 
H2<H1 
T2=C1 
Cl=0.0 
GO TO 7 


VAFOR 


QQ 


6 Cl=0. 023*( TCV2/HD)*( (GHD/VISV2 )**0. 8)*( (CV2*VISVe/TCV2 )**0. 33) 
Cl=QUAL2*C1 
IF(QUAL2-0.70)7, 353 


C BOILING 


7 C2=778.26*(1.0-QUAL2 )*RBL2*( 1. OFCL2*( TSATU2-T2) /(HV2-HL2) ) 
C2=C2¥TCL2*CL2*VV2/( SURT2*VLO* (VV2-VL2 )*( 459. 7E--TSATU2 ) ) 
1mec1)8,8,10 ™ 

8 TW2=TSATU2-+( 01/C2 )**0. 33 

9 RH2=R1*Q1/(TW2-T2 } 

GO TO 500 


10 I1=0 
TW2=-TSATUL+30. 0 
11 Il=T1+1 
IF(I1-I TERM j13, 13,12 
12 N100-:2 
WRITE OUTPUT TAPE ITAO,1 
GO TO 500 
13 C3=TWe 
Chee(Q1-C1#(TW2-T2))/c2 
eee 141415 
1h C5=-1.0 
CheseCh 
GO TO 16 
15 C5=1.0 
16 TW2HTSATU2+405%*( Clh#0. 33) 
ERR=ABSF{ (1W2/63}+1.0) 
IF( ERR-ESP3 )9,9,11 
C 
500 RETURN 
END 
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CHAIN LINK (2,B2) - Continued. 


i 


C-QQc2 


* OK 


101 


500 


NW FE Ww 


LIST 

FORTRAN 

LABEL 
SUBROUTINE BURN 
DIMENSION 
COMMON 
EQUIVALENCE 


MAXTAL=MAXTA 
ENTHALPY DNB RATIO 


DNB2=(H2-A(1))/AT1LO(MAXTA ) 
IF( QUAL2=-0.1)101, 101,500 


Q=DNB RATIO 


C2=0. 01*( TSATU2-T2 } 
me? )1,2,2 

C2=0 0 

C2=3.0402 
Cl=Q1/(C2*AC9(MAXIA )) 


FIND MAXIMUM DNB RATIO 


TF(C1-DNB2 )500, 500, 3 


SUBROUTINE AIM 
DIMENSION 

COMMON 

EQUIVALENCE 

CALT, SIGMA 

NSKE=0 

TF(N5}6,6,2 

DO 32=1, NOG 

DO 3i=1,M 
VUSIG(I, J }<VUSIG(T, J) /EIGEN2 
TF(N5=2)4,4,5 
IF(ITER-1)5,5,6 

TCT2=1 

CALL CONS 

TCT=:0 

ICcT1=0 

EIGEN=0. 0 

EIGEN1=0. 0 


ro 
ON 
~\} 





CHAIN LINK (2,B2) = Continued. 


* 


C2°*c2 © 


a) 


K OK 


( CALL FLUX 


8 
2 


CALL EIVAL 
CALL CONV 
IF(N100=1)7, 10,500 


10 IF(N5)16,16,11 


ime 


12 
13 


14 
DD 


16 
500 


FW 


500 


CALL CRIT 
TF(N100-1)13, 12,500 
IF(N5-2)13,13,6 

DO 14.521, NOG 

DO liiel,M 

VUSIG(I, J)=VUSIG( I, J)*EIGEN2 
CALL RING 

GO TO 500 

CALL CELAX 

RETURN 

END 


List 

FORTRAN 

LABEL 

SUBROUTINE SIGMA 
DIMENSION 

COMMON 
EQUIVALENCE 


DO 6J=1,N0G 
CALCULATE TOTAL REMOVAL CROSS SECTIONS 


DO hIe1,M 
SIGT(I,J)=SIGA(I,J)+SIGPT(Ij=T( 5) 
IF(J-1)1,1,2 

SIGT(I, J jeSIGT( I,J )+TRANS(I,1,2) 
IF(BUCKE(I, 7) bu, 3 
SIGT(1I,J)=SIGT(I, J}*#DIF(I, J)*BUCK2(I,J) 
CONTINUE 


SET FLUX TO ZERO 


DO SK=1,N 
PHI(K, 7 }=0.0 


CONTINUE 


RETURN 
END 


LIST 
FORTRAN 
SUBROUTINE CONS 
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CHAIN LINK (2,B2) = Continued. 
DIMENSION 


COMMON 
EQUIVALENCE 


IF(NSKF)1,1,11 
1 IF(N1l-2)2,5,5 


PLANE GEOMETRY 


Caeca C2 


2 DO 3if=2,NM1 
FL(I)=0.0 

3 FLP(I)=1.0 
DO 4I=1,MM1 
AC1(T)=0.0 

4 AC2(Tj=1.0 
GO T0 9 


CYLINDRICAL GEOMETRY 


aa 


5 DO 6T=1,M 

6 AC1(I)=P#DELR(T) 
LBl=1 
LB2=2B( 1) 
DO 8I=2,NM1 
FAC2=AC1(LB1)/R(T} 
FLP(I)#1.0/(1. O+FAC2/2.01 
FL(I\=FACO*FLP(T) 
IF(I-LB@)8,7,7 

7 K#LB1 
LBl]eK+1 
LB2=1B(2B1) 
FAC2=AC1(1IB1}/R(1I) 
Ac2(K)=1.0/(1.0+FAC2/2.01 
AG1(K )=FACe#ACce(K) 

8 CONTINUE 


COMMON CALCULATION 


2 €2 C2 


9 DO 1031, NOG 
DO 10I=1,MM1 
10 AC5(I, d)=(DIF( T+1, 7)*DELR(I))/DIF(1, J )*DELM(I+1))-1.0 


11 DO 123=1,N0 
DO 12T=1,M 
AC3(I, 5 je( DELR(I)**2)/DIF(I, J) 
12 ACH(I, F)=AC3(1I,J)*SIGT(I,J) 
IF(N2-2 )13, 18,18 


FLUX GRADIENT ZERO AT ORIGIN 


C2 Goa 
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CHAIN LINK (2,B2) - Continued. 


aa a 


cao. 42 


*K 


13 
1h 


15 
16 


17 AC6(2,J)=SIGT(1,.7)*AC6(1,J) 


18 
Ww 


OL 


hoe 


rd 


TF(R(1))14, 14,15 
Pe=2.0%(1.0+P) 

GO TO 16 

P2=2.0 

DO 17J=1, NOG 
AC6(1,J)=AC3(1,3)/P2 


GO TO 20 
FLUX ZERO AT ORIGIN 


DO 1931, NOG 


AC6(1, J)=ACh(1, 7) 4FLP(2)-FL(2)+1.0 


AC6(2,5)=AC3(1,J)*FLP{(2) 
COMMON CALCULATION 


DO 2LJ=1,NCG 
DO 217=1,MM1 


ACT(Td )#AC2(T)*ACH(T+1, J J-Nene) 


AC8(I, J)=ace(I}*AC3(I+1, J) 
RETURN 


SUBROUTINE FLUX 
DIMENSION 
COMMON 
EQUIVALENCE 


LIB=2 

Neat 

Me 

DO 291-1, NOG 


D(.T\eCHI(KB, ‘een 

TF( J-KO 4, 3 

Rain onttioa2, 1)dbe( KB) 
K6eK8+1 

K9=LE(K8) 

CONTINUE 

DO hOo7d=1,M 
IF(BUCK2(.J,I) 401, 407, 407 
T2sJeol 
SUM1=-BUCK2(5,1)*DIF(J,I) 
TF(I2)402, 402,403 

K8=1 

Go TO Lok 
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CHAIN LINK (2,B2) = Continued. 


403 I1=LB(I2) 
K8=T1+1 
hOk K9=LB( 3) 
DO 405K=K8, K9 
4O5 D(K)=D(K)+SUM1*PHI(K,I) 
IF(I2)407, 407, 406 
406 DP(I2)=DP{I2)4+SUML*PHI(I1,1) 
hO7 CONTINUE 
5 IF(I-1)15,15,6 
6 LB3-T-1 
LB2=I-NDS 
IF(iB2-1)7,8,8 
7 LB2=1 
8 DO 10J<1,MM1 
Tl=tB( J) 
SUM=0. 0 
DO 9K=LB2, L-B3 
M80=K~-LB2+1 
9 SUM=SUM+TRANS( J+1,M80, I )*PHI(1I1,K) 
10 DP(7}=DP(.7)+SUM 
T2=2B(1)+1 
321 
DO 14J=1,N 
SUM=0. 0 
Pmesiel2)12,11,11 
11 [3«I34+1 
T2=LB(T3)+1 
12 DO 13K=2.B2, LB3 
TheK-LBO+1 
13 SUM=SUM+TRANS (13,14, 1 }*PHI(J,K) 
14 DfT )=D(7)+4SUM 
15 TF(N2-2)16,17,17 


DERIVATIVE OF FLUX EQUALS ZERO AT INNER BOUNDARY 


oe Re) 


16 BETA(1)=D(1)*AC6(1, 1) 
DELTA (2 )eAC6(2,T) 
GO T9 18 


FLUX EQUALS ZER? AT {NNER BOUNDARY 


Ca C2 


17 BETA(2 }eAC6(2,1T)*D(2) 
DELTA(2‘=AC6(1,1) 
LOB=3 


CALCULATION OF DELTA AND BETA 


C22 Q 


18 I6=15(1) 
I7=1 
DO 21d=LOB, NM1 
SMesAC3(17,1)*D{)*#FLP(J) 


NM 
“N) 
eon 





CHAIN LINK (2,B2) - Continued. 


CK=ACH(I7, I )*FLP(J)-FL(S) 
CL=FL(.7) 
SL=1.0-CL 
CON1=1.0/(1.0+#DELTA(J)) 
IF(J-16)19,20,19 
19 BETA( J }=SL*#OONL*BETA( J~1)+6M 
DELTA ( J+1 )=CK+CON1L*(DELTA(7)+CL) 
Go To 21 
20 CLP=AC1(1I7) 
SLP=1.0-CLP 
CKP=AC7(I7,1) 
SMP=AC8(I7,1)*DP(I7) 
GAM=AC5(1I7,I) 
GAM1=GAM+1.0 
CON2=0. 5*({ CK+DELTA( J )¥CONL¥2. OFCKP+CL*CONL+( GAM+CLP)*(CKP-+2: )/SLP) 
CON3=1. O-CLP/2.0 
ce maliaee iim » O-CL )*BETA(J~1)+GAM1L*SMP/SLP )*(SLP/(GAM1*(2.0- 
LCLP 
DELTA ( J+1\=( CON2#SLP-GAM*CON3-CLP/2.0) /(GAM1L*CON3 ) 
L7=L7+1 
T6=1LB(1I7) 
21 CONTINUE 
22 IF(N3<2)23,2h, 2h 


FLUX EQUALS ZER9D AT OUTER BOUNDARY 


anc 


23 PHI(N,I)=0.0 
GO TO 25 


DERIVATIVE OF FLUX EQUALS ZERO AT OUTER BOUNDARY 


Ce 2 C2 


2h CONl=1. OHDELTAIN} 
PHI(N,1)=(AC3(M, I )*CONL#D(N)+2. O¥BETA(N-1))/(CONL*ACH(M, I)-+2. O* 
IDELTA(N) ) 


START BACKWARD COMPUTATION 


1 ELD 1 


25 DO 26c=1,NM2 
T20=Ne7 
26 PHI(I20,1}-(PHI(20+1, 1)+BETA(I20))/(1.O0+DELTA(I20+1) ) 
TF(N2-2 )28,27,27 
27 PHI(1,Ij}=0.0 
GO TO 29 
28 PHI(1,1)={PHI(2,1)+BETA(1))/(1. OFDELTA(2)) 
29 CONTINUE 
500 RETURN 
END 


* wet 
FORTRAN 
LABEL 


* 


Le 





CHAIN LINK (2,B2) - Continued. 


SUBROUCTINE EXVAL 
DIMENSTON 
COMMON 
EQUIVALENCE 


1 LB2=1.B( 1) 

2 M80-1 
DO Tiel, N 
G(I}=0.0 
DO 3J=1, NOG 

3 G(I)=G(I}+VUSIG(M80, J}*PHI(I,J) 
G1(T)=G(1)*RI(T) 
TF(I=LB2)7,4,), 

4 LF(I-N)5,7,7- 

5 GP(M80)=0.0 
DO 6J3=1,N0G 

6 GP(M80)=GP(M80}+VUSIG (M80+1,.J)*PHIII, J) 
G1P(M80\=GP(M80)#kT (I) 
M80eMBO+1 
LB2=LB( M80} 

7 CONTINUE 


BEGIN CALCULATION OF EIGENVALUE 


8 M80=1 
EBess3 
TB3=LB( 1) 
EIGEN=0.0 

9 SUM=0.0 
DO 13I=1B2,133,2 
TF(I-LB2)10,10,42 

10 IF{(I-3)12,12,11 

Ll SUM=SUMiG1F (M80)+4.0*G1(I-1)+4+G1(I) 
M80=<M80+1 
GO TO 13 

12 SUM=SUM+G1(I~2 )+44.04G1(T=1)4G1(T) 

13 CONTINUE 
Ac9{M80}=( SUM*DELR(M80) )/3.0 
EIGENGETGEN+ACQ(M80) 
TF(M80-M) 24,15, 15 

14 LR@sLE342 
K80=M80+1 
L33cLB(K80) 
GO TO 9 

15 EXGEN-EIGEN*PIM 

500 RETURN 


G2eca G2 


* K *K 
| 





CHAIN LINK (2,B2) = Continued. 


arcur Gs 


laa 


a2 Q 


3, 


6 


if 
8 


9 


10 


1 
16 
rf 


18 
MSS, 


20 


SUBROUTINE CONV 
DIMENST ON 
COMMON 
EQUIVALENCE 


DO lt=1,N 
SOUP(I)=c(1}/EIGEN 
TOTSICT+1 

DO 2T=1,MM1 

SOPP( TI )=GP({1T)/EIGEN 
TF(N4-2)3,4,4 


EIGENVALUE CONVERGENCE CRITERION 


ERR=ABSF( (EIGEN-EIGEN1) /ELGEN) 
TR(ERR-ESP1)15,15,17 


POINTWISE CONVERGENCE CRITERION 


TEST1=<0.0 
TEST2=1. OF25 

DD 9F=1,N 
IF(SOU(T))95955 
FAC=G(1)/SOU(T) 

IF( TEST1=FAC}6,7,7 
TESTISFAC 

TF( FAC-TEST2 )8,9,9 
TEST2=FAC 

CONTINUE 

DO 14t=1,MM1 
IF(SOP(I))14, 14,10 
FAC=GP(1T)/scP(r) 
TF(TEST1I-FAC)11, 12,12 
TESTI=FAC 

TE( FAS-TEST2 )13, 14, 14 
TEST2=FAC 

CONTINUE 

ERR=( TEST1-TEST2 ) /TEST1 
TF ERR-ESP1)15,15,17 
LATIsICT1+1 
iF(ICT1-2)18, 16,16 
N1LOO=1 

GO TO 500 

ICT1=0 
TF(TCT-MEGT)19, 19,24 
N1LOO=0 

LF( ICT~2 )27,27,20 


SOURCE EXTRAPOLATION 


FAC=THETA+1. 0 
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CHAIN LINK (2,2) - Continued. 


C2 @ C2 


DO 2ltsi,N 

21 SOU(I)=SOUP(I)*FAC-THETA*SOU(T) 
DO 22T=1,MM1 

22 SOP(I }=SOPP(I)*FAC-THETA*SOP(T) 

23 EIGEN1=EIGEN 
GO TO 500 

2h TF(MiCT)16,16,25 

25 WHITE OUTPUT TAPE ITAO,26 


26 FORMAT (4'7HO MAXIMUM NUMBER OF FLUX ITERATIONS EXCEEDED) 


N100=2 
GO TO 500 
27 DO 28Ie1,N 
28 sou(I)=souP(I) 
DO 29T=1,MM1 
29 SoP(I )=SoPP(T) 
EIGEN1=EIGEN 
500 RETURN 


EQUIVALENCE 

1 FORMAT (42HO 

2 FORMAT (42HO 

3 FORMAT (43H 

4h FORMAT (61H+ CRITICALITY EIGENVALUE 
1POISON/60H COUNT 

2TION/1H Blo, 1PE20.5,110,E19.5) 

5 FORMAT (1H 740,1PE19.5) 


THERMAL 
REGION CROSS SEC 


6 FORMAT (54489 MAXIMUM NUMBER OF CRITICALITY ITERATIONS EXCEEDED) 
7 FORMAT (43H SEARCH FAILED - POISON BECAME NEGATIVE) 


SET UP CONTROL REGIONS AND CALCULATE ERROR 


LF(N5=2)8,8,11 

8 te2134334N5 
DO 9I=14,29 
Sent] 

9 Wj=L( 5) 
Je11544062N5 
DO 10T=64, 70 
Emgt] 

10 A(IT}=<A(T) 
11 WeEIGEN-1.0 
ERR=ABSF(W ) 


INTERMEDIATE FRINT 
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CHAIN LINK (2,B2) - Continued. 


fe 
IF( IPR )172,172,12 
12 SUM1<EIGEN*EIGEN2 
TF(N5 2 )13, 14,15 
13 WRITE OUTPUT TAPE ITAO,1 
GO TO 16 
14 WRITE OUTPUT TAPE ITAO,2 
GO TO 16 
15 WRITE OUTPUT TAPE ITAO, 3 
16 LB1l=LBS(1) 
WRITE OUTPUT TAPE ITAO,4,ICT2,SUM1,LB1l,SIGPT(LB1) 
IF(N6-2 )172,17,17 
17 DO 171I=2,N8 
JetBs(r 
171 WRITE OJIPUT TAPE ITAO,5,3,SIGPT(J) 
172 IF(iCcTe-1)18, 18,19 


SET UP FOR FIRST ITERATION 


2 


18 LBl=LBS(1) 
SGPT=SIGPT(1IB1) 
C10=1.0 
Tik=0 
ICT3=1 
NSKP=1 
C321. 0 

19 IF(ERR-ESF2 )20, 20, 33 

20 N100=0 
Ge m9) 23 


CALCULATE NEW POISON VALUES 


C202 Q 


21 DO 227=1,N8 
LB1l=IBS(T) 

22 SIGP(LB1)=C1LO#SIGPT(LB1) 
LF(N5-2 323, 23,26 


STORE FOISON VALUES FOR CELL OR AXTAL REGIONS 


Ca C2 


23 J21154406FN5 
DO 2hI=64, 70 
Setpl 

ah A(T AI) 
2112 
DD 25t=14,29 
ood] 

25 Wijst{7) 

GO Te 500 


CALCULATE NEW VALUE OF SIGT FOR RADIAL CRITICALITY (N5=3) 


2 2 Q 
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CHAIN LINK (2,82) - Continued. 


C20 Q 


Qa a 


Ca €2 62 


26 DO 32J=1,N0G 
LBl=LBS{ 1} 
LB2=1 
DO 31I=1,é 
IF(LB1-I )31,27, 31 
27 SIGT(I,d )/2SIGA(I, J}+DIF(I, 3) *BUCK2(1,J)+SIGPT(1)*1(J) 
GO TO (28,29),7 
28 SIGT( I,J )=SIGT( 1, J}-+TRANS(I, 1,2) 
29 LB2=LB2+1 
IF (LB2-N8 }30, 30, 32 
30 LB1<LBS(LB2) 
31 CONTINUE 
32 CONTINUE 
GO TO 500 


TEST NUMBER OF CRITICALITY ITERATIONS 


33 IF(ICT2-MICT2 }35, 35, 34 
34 WRITE OUTPUT TAPE ITAO,6 
N100=2 
GO TO 500 
35 IF{( ICT3-2)36, 42,47 


FIRST CHOICE OF SEARCH PARAMETER 


36 IF(W)41, 37,537 

37 IF(EIGEN-1, 25 )38, 38,40 

38 Che1.0/(1.0+10. O47) 

39 C2=C03 
PSI2=EIGEN 
TCT2=TCT2+1 
TOT3e7CT341 
GO TO 51 

hO Che1.0/(1.0-W#{2.62-50. OFT } 
GO TO 39 

h1 Chel. 0-10, O°W/EIGEN 
GO TO 39 


SECOND CHOICE OF SEARCH PARAMETER 


ho TF(C3)36, 36,43 

h23 TF( C2536, 36, 44 

hh (W1sLCGF( C3) 
WeaLoGF( 2} 
Al=(wW2-W1)/(PSI2-EIGEN} 
BlcW 1-A1*EIGEN 
FAC=A1+B1 
TF(FAC-88.0)45,45, 36 

45 CheEXPF( FAC) 

6 Clescde 
PSLI1=PSt2 
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CHAIN LINK (2,B2) = Continued. 


Gr OQ 


CQAQAQ 


2 62 2 


GO TO 39 
GENERAL CHOICE OF SEARCH PARAMETER 


h7 CON1l=PSI1=FSI2 
CON@=C1-C2 
CONE=C1*PSTL 
CON4=PSI1-EIGEN 
CON5=C1-C3 
CON3=CON6-C2#PSI2 
CON6=CON6=C3*EIGEN 
DET&CONL¥ CONS -CON2*CONL 
TF(DETI48, 40,48 

48 Alse( CON3*CON5 -CON2#CONG ) /DET 
Bl=( CONL*¥CON6-CON3*CONL ) /DET 
Be={C1-A1l)*(PS11-81) 
ChieA14+B2/(1.0-B1) 
IF(C4-A1)50,50, 49 

hO IF(C3-A1)42, 46,46 

50 IF(C3-A1)46,46, 42 


TEST FOR NEGATIVE POISON 


51 IF(Ch)52,52, 54 
52 TiK=ITLK+1 
ICT321 
C3<1.0 
LBleLBS(1) 
SGPT=SIGPT( LB1) 
C10<1.0 
ICT2eTCte=-1 
TF( ILK=2 }36, 36,53 
53 WRITE OUTPUT TAPE ITA0,7 
N1l00=2 
GO TO 500 


CALCULATE NEW POISON RATIO 


54 Cla=SePt/ch 
LBl=?BS(1 ) 
C10C12/SIGPT(LB1) 
C3=ch 
N100=1 
GO TO 21 

500 RETURN 
END 


LIST 

FORTRAN 

LABEL 
SUBROUTINE RING 
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CHAIN LINK (2,52) ~ Continued. 


OQA20a @ 


HE a | 


1 
2 
5 


1h 


1 


16 


17 
18 


iM 


DIMENSION 

COMMON 

EQUIVALENCE 

FORMAT (1881 RADIAL REGIONI6,5120/108 AXTAL/11H REGION) 
FORMAT (28H POWER DISTRIBUTION ) 

FORMAT (47H TRANSVERSE BUCKLING FOR AXIAL MAPPING) 
FORMAT (18H PRESSURE ) 

FORMAT (18H ENTHALPY ) 

FORMAT (19H FLOY RATE) 


FORMAT (18,6520.5) 

FORMAT (18,6E20.5/&28.5,5820.5) 
FORMAT (3486 THERMAL POISON CROSS SECTIONS/1H ) 
FORMAT (113, 1PE20.5) 
MAXTAL2MAXIAL 

N=N 

IF(ITER-1)11, 11,16 
IF(ITA3Z)12,12,16 
SUM1=(2. 4048 /R{N) }e¥2 

DO 13K=1,N0G 

DO 13J=1,MAXIAL,MAXI 

DO 13I=1,MRI 

BUCKCH(I.3.K }=SUM1 

TF(POW1)i4, 14,15 

Fle1.0 

F2=0.0 

GO TO 16 

Flx0.5 

F221.0-F1 


CALCULATE FLOX-VOLUME WEIGHTING TERMS AND RADIAL POWER DISTRIBU- 
TION 


LBlel 

SUM5=0. 0 

DO 19I=1,MRI 

POWER{I,1)=0.0 

L32<1B(I)-2 

DO 18K=1,NO0G 

SUM1:0. 0 

DO 173=LB1, LB2,2 

SUM1<SUML+R (5) *PHI(J,K)+4+. O#R( J+) ¥PHI(J+-1,K)+R(J+2)*PHI(J+2,K) 
AC3(1,K)=SUML*¥DELR(I)/3.0 

POWER( I, L)=POWER(I, 1)4AC3(I,K)*VU(I,K) 
SUM5=SUM5+P WER(I,1) 

LBl<LB(T) 

DO 20i=1,MRI 


20 POWER(I, 1)=POWER(I, 1)/SUM5 


REGIONAL POWER DISTRIBUTION 
TF(PW1)21,21,23 


a 





CHAIN LINK (2,B2) ~ Continued. 


C20 


Cite & 


C 
C 
C 


21 DO 225=2,MAXI 
DO 22T:31,MRI 
22 PWER(I,J)=POWER(I, 1)*POWER(I,J) 
GO TO 25 
23 SUM1<POW1L*CARFA 
DO 2hT=1,MRI 
POWER(T., MAXIAL)=POWER(T, 1)*SUM1/RAREA(T) 
DO 2h.ja2,MAXT 
2h POWER(I,J}=POWER(I,J)}*POWER(I,MAXIAL)/Dz(J) 


TEST POWER DISTRIBUTION 


25 N101=0 
IB1=0 
LB2=0 
DO 30I=1,MRI 
KeMRING=T 
SUM1=ABSF({ DUMMY(K, 1) /POWER(K,1)}-1.0) 
TF(SUM1-ESP3)27, 27,26 

26 N101l=1 
LBl=1 

27 DO 295%2,MAXT 
SUM1=ABSF( (DUMMY(K,7)/POWER{K,J))-1.01 
IF(SUM1-ESP3 29,29, 28 

28 N101=1 


29 CONTINUE 

30 CONTINUE 
IF(N101)31, 31, 38 

31 IF(N100}32, 32, 38 


CONVERGENCE SATTSFIED 


32 DS 33K=1,N0G 
DO 33I=1,MRI 

33 VU(T,K }=VUSIG(I,K)/VU{I,K) 

34 CALL RING? 
WRITE OUTPUT TAPE ITAO,9 
IF(N5~2)35 , 36,37 | 

35 WRITE OUTPUT TAPE ITA, 10,(1,SIGPTC(L), T=1, MCELL) 
GO T9 57 

36 WRITE OUTPUT TAPE ITAO, 10,(I,SIGPTA(I), I=1,MAXIAL) 
GO TO 57 

37 WRITE SUTP“T TAPE ITAO, 10(I,SIGP(I),I=1,MRING) 
GO TO 57 


CONVERGENCE NOT SATTSFIED 
38 IF( ITER-NPO( 11) )381, 32, 32 


381 CALL RING1 
IF( IPR)39, 39, 40 
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CHAIN LINK (2,B2} = Continued. 


39 TF(IB1)45,45, he 
hO WRITE OUTPUT TAPE ITAO,1,(I,I=1,6) 
WRITE OUTPUT TAPE ITAO,2 
WRITE OUTPUT TAPE ITAO,7,(J,(POWER(I.J),I=1,6),J=2,MAXT) 
WRITE OUTPUT TAPE ITAO,3 
i OUTPUT TAFE ITAO,8, (J, ((BUCKCH(I,J,K),I=1,6),K=1,2), Jm1,MAXI 
IF(P2W1)395 39,41 
hl WRITE OUTPUT TAPE ITAO,4 
WRITE OCTFUT TAPE ITAO,8,{J,((PRES(I,J,K),I=1,6),K=1,2),J=1,MAXIAL 


WRITE OUTPUT TAPE ITAC,5 
WRITE OUTPUT TAPE ITAO,8, (J, ((ENTH(I,J,K),I=1,6),K=1,2),J=1,MAXIAL 


WRITE OUTFUT TAPE ITAO,6  _ 
WRITE OUTPUT TAPE ITAO,8,¢2,{(FLOW(I,K),T=1,6),K=1,2) 


ho sx) 
SUM1=0. 0 
DO 43T=1,MRT 
POWER(I, L}=F1*POVER(I, 1)+F2*DUMMY(I, 1) 
43 SUMl=<SUM1+POJER(I, 1) 
DO 44uT=1,MRI 
hh DUMMY(I, L)=POWER(I,1)/SUML 
hS IF(POW1)46,46,50 
46 DO hOl=LB2,MRI 
SUM1=0. 0 
DO 47J=2,MAXT 
DUMMY( I, J j=F1*#POWER(I,J)4F2*DUMMY (I,J) 
47 SUM1=SUM1+DUMMY(7, J) 
SUM1=DUMMY( 1,1) /SUM1 
DO 483=2,MAXT 
48 DUMMY(I,J}=SUML*DIMMY(TI, 0) 
hO CONTINUE 
GO TO 500 
50 SUM2=POV1*CAREA 
DO 52i=LB2,MRI 
POWER(Z, MAXTAL J@SUM2*DUMMY(I, 1)/RAREA(T) 
SUM1=0. 0 
DO 51Je2,MAXT 
POWER( I, 3 j= ( FLSPOWER(T, 7)+F2*DUMMY (I,J) )*DZ(J) 
51 SUMl=SUM1+POWERIT,<) 
SUM1=P OWER(I,MAXIAL}/SUM1 
DO 52c22,MAXT 
POWER( TJ \=POWER{ T, 5)#SUM1/DZ(7} ~ 
52 DUMMY(I,J)=POWER(Z,J) 
53 CONTINUE 
5h ex2lO09 
DO 55f-11, 13 
TeT+1 


55 L(S)eL(T) 





CHAIN LINK (2,B2) = Continued. 


J=1678 
DO 56T=2409, buh 
TusJH1 
56 A(Jj}=A(T) 
57 DO 58ie1,N 
58 SOUR(T)=SoOUP(T) 
DO 59I=1,M 
59 SOPR(I)=SOPP(I) 
500 RETURN 
END 


® LIST 

FORTRAN 

¥ LABEL 
SUBROUTINE RING1 
DIMENSION 
COMMON 
EQUIVALENCE 


K 


MRTI=MRI 
N101=1 


CALCULATE FLUX GRADIENTS TO THE LEFT OF INTERFACES 


eRe Re 


DO 4JOG=1, NOG 
DO 4IREG=1,MRI 
LB2=LB( IREG ) 
LBl=LB2<2 
=O 
DO 1I=181, LB2 
J=J+1 
1 DELT(1,J}=PH2 (1, 70G)-PHT(I-1, 306) 
DO 31-2, 3 
DO 2f=T, 3 
2 DELT(I,J)=DELT(I-1,J)-DELT( I-1, 0-1) 
3 CONTINUE 
4 DPHO( TREG, JOG )={ DELT(1, 3)4+DELT(2, 3)/2. OWDELT( 3. 3)/3.0)/DELR( IREG ) 
TF(MRT-2)11,5,5 


CALCULATE FLUX GRADIENIS TO THE RIGHT OF INTERFACES 


C2 2 OE 


5 DO 970G=1, NOG 
DO 9IREG=2, MRI 
LBl=LB( IREG-1) 
LB2=1B1+2 
St 38) 
DO 6T=I.B1, LB2 
JeJ+1 
6 DELT(1,3)=PHI(I+1, J0G)-PHI(I, JOG) 
LE2=2 
DO 8I=2, 3 
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CHAIN LINK (2,B2) - Continued. 
DO 7i=1, LB2 
7 DELT(I,J)=DELT( 1-1, J+1)-DELT(I-1,J) 
8 LB2=LB2-1 
9 DPHI( IREG, JOG )=(DELT(1,1)-DELT(2,1)/2. O¥DELT(3.1)/3.0)/DELR(IREG) 


COMMON TERMS FOR BUCKLING 


RIGHT HAND SIDE OF INTERFACE 


QAAAAA 


DO 10I=2,MRI 
SUM1=RINT(I-1,3)/2.0 
DO 10J=1, NOG 

10 ACK(I,J)=SUM1*¥DPHZ(I,J) 


LEFT HAND SIDE OF INTERFACE 


C22 © 


11 DO 12T=1,MRI 
SUM1=RINT(1I, 3)/2.0 
DO 12J=1, NOG 

12 AC5(I,Jd)=SUM1*DPHO(I, J) 
DO 13J21, NOG 

13 AC5(MRI,J)=2.O#AC5(MRI,J) 


BUCKLING 


aaa 


DO 19K=1, NOG 
DO 193=2,MAXI 
TF(MRI-2)14,15,15 

1h BUCKCH(1,73,K j=-AC5(1,K)/AC3(1,K) 
GO TO 19 

15 BUCKCH(1,3,K)=-(DIFCH(1,3,K)*AC5(1,K )}#DIFCH(2,J,K)*ACU(2,K))/(DIFC 
1H(1,3,K}*AC3(1,K)) 
IF(MRI-2)18,18, 16 

16 ILBl=MRI-1 
DO 17I=2,LB1 

17 BUCKCH(I,5,K)=(DIFCH(I-1,¢,K)#AC5(I-1,K)+DIFCH(I,J,K)*(ACH(I,K)-AC 

ae OTPCH(T+1, J, K)MACM T41,K))/\ DE 

18 Y=MRI 
BUCKCH(I,J3,K)=(DIFCH(T-1,-7,K)*AC5(I-1,K}+DIFCH(I,J,K)*(ACH(I,K)-AC 
15(Z,K)))/(DIFCH(T, F,K})*AC3(T,K) 

19 CONTINUE 

C 
500 RETURN 


wok 
3 
: 


SUBROUTINE RING2 
DIMENSION 

COMMON 
EQUIVALENCE 
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CHAIN LINK (2,B2) - Continued. 


C 


OO Ag 2 2 INO OC 


Sp Se 1 | 


M=M 

N=N 

MRI=MRI 

CALCULATION FOR ANSWER PRINTOUT OF RADIAL PARAMETERS 


PHI(N,1) - RADIAL FAST FLUX TRAVERSE OF THE REACTOR 

PHI(N,2) = RADIAL THERMAL FLUX TRAVERSE OF THE REACTOR 
POWP(N,1),POWR(M,1) - POINIWISE RATIO OF FAST TO TOTAL POWER 
POWP{N,2),POWR(M,2) - POINIWISE RADIAL POWER GENERATION 

Cl - RATIO OF MAXIMUM TO AVERAGE THERMAL FLUX IN THE REACTOR 
C2 - RATIO OF MAXIMUM TO AVERAGE POWER DENSITY ACROSS THE CORE 


FAC=0. 0 

LB1=EB(MRT ) 

DO 23=1,1B1 
IF(PHI(S,2)-FAC}2,2,1 
FAC=PHI(J,2) 

CONTINUE 

SUM2=3, 14159265*{RINT(MRI, 3)**2) 
SUM1=0. 0 

LB1=1 

DO 4I=1,MRI 

LB2=LB(I)=-2 

SUM3=0. 0 

DO 3J@LB1, LB2,2 
SUM3=SUM34R(J)*PHI( J, 2 )+4. O¥R( J4+1)*PHI(J+1. 2 )4+R(J+2 )*PHI(J+2.2) 
SUM1=SUM1+4SUM3*DELR( I )*PIM/3.0 
LBl=LB(T) 

C1=FAC*SUM2 /SUM1 

LB2=N-2 

SUM3=0. 0 

DO 5d=LB1, LB2,2 
SUM3=SUM34R(J°)}#PHI(T,2)44. O¥R( J+1)*PHI( J+1, 2)4R( J+2)*PHI(J+2,2) 
SUM1=SUM14+SUM3*DELR(M}*PIM/3.0 
DO 6K=1, NOG 

DO 6J=1,NM1 
PHI(3,K)=PHI(<,K)/SUML 


POINTWISE RADIAL POWER DISTRIBUTION 


FAC1=0.0 
SIM1=0.0 

LBle=1 

DO 16I=21,M - 
LB2=LB(T) 
CON1=0.0 
CON2=0.0 
IF(VU(I,1))8,8,7 


7 COMeVUSIG(I,1)/VU(I, 1) 
8 IF(VU(T,2))10,10,9 
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CHAIN LINK (2,B2) = Continued. 


Gd Q 


9 CON2=VUSIG(I,2)/VU(I,2) 
10 DO 14J=LB1, LB2 
CON3=CON1*PHI(J,1) 
POWP(.J,2 )=CON34+CON2*PHI(J,2) 
IF(POWP(J,2))11,11,12 
11 POWP(J,1)<0.0 
GO TO 14 
12 POWP(J,1)=CON3/POVP(J,2) 
IF(PWP(J,2}-FAC1)14,14,13 
13 FAC1=POWP(J,2) 
14 CONTINUE 
SUM3=<0. 0 
LB2=LB(I)=2 
DO 153=LB1,LB2,2 
15 SUM3=SUM34R( J )*PIWP (5, 2)+4.O#R( I+1)*POWP (J+1, 2)4R(J+2)*POWP(J+2,2) 
SUM1=SUM14SUM3*PIM*DELR(I}/3.0 
LB1l=LB(T) 
POWR(I, 1)=POWP(LB1,1) 
POWR( I, 2)=POWP(I31,2) 
16 CONTINUE 
C2=FAC1*SUM2/SUM1 
DO 17I=1,M 
17 POWR(I,2)=POWR(I,2)/SUM1 
DO 18J=1,N 
18 POWP(J,2)=POWP(J,2)/SUM1 


OUTPUT 
47 FORMAT (73H1 SOLUTION FOR 
1 RADIAL PARAMETERS) 
48 FORMAT (73HO RADIAL REGION GRO 
1UP 1 GROUP 2) 
4Q FORMAT (1HOI11, 248 NU*SIGMA FISSION1PE25.4,£14.4/20Hn 
il NUE39.4,E14.4/36H SIGMA ABSORPTION 
OBo> ty hh. 4/18 DIFFUSION COEFFICIENTE2O.4,E14. 
34./28H BUCKLINGE33. 4,214.4/498 
4 SIGMA TRANSFER (GROUP 1 TO 2)E12.4) 
50 FORMAT (117HO RADIUS NORMALIZED FLUX 
1 FLUX POWER POWER FRACTION/11 
28H (CMS) SOURCE TERMS GROUP 1 
3. GROUP 2 (TOTAL) (GROUP 1/TOTAL)/1H ) 


51 FORMAT (1H 1PE14.5,5E20.5} 

52 FORMAT (67H2 RATIO OF MAXIMUM TO AVERAGE THERMAL FLUX ACROSS TH 
1E CORE 2F8.5) 

53 FORMAT (67HOQ RATIO OF MAXIMUM TO AVERAGE POWER GENERATION ACROS, 
1S THE CORE =F8.5) 

54 FORMAT (3080 CORE + REFLECTOR WEIGHT =1PE12.5,4H LBS) 
WRITE OUTFUT TAPE ITAO,47 
WRITE OUTPUT TAFE ITAO,48 
DO 55I=#1,M 
WRITE OUTPUT TAPE ITAO,49,I,VUSIG(I,1),VUSIG(I,2),VU(I,1),VU(I,2), 
1SIGA(I,1),SIGA(I,2),DIF(I,1),DIF(I,2),BUCK2(I,1),BUCK2(I,2), TRANS( 
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CHAIN LINK (2,B2) ~ Continued. 


C 


*K 


C2. Q 


ete 1 a2) 
55 CONTINUE 
WRITE OUTPUT TAPE ITAO,47 
WRITE OUIPUT TAPE ITAO,50 
LBl=1 
DO 57I=1,M 
TROuTB(T)=1 
WEITE OUTPUT TAFE ITA9,51,(R(J),SOUP(J),PHI(J,1),PHI(J,2),POWP(J,2 
1),PWP(3,1),35=TB1,LB2) 
J=LB(T) 
R(J)=-R(5) 
WRITE OUTPUT TAPE ITAO,51,R(J),SOUP(J),PHI(J,1),PHI(J,2),POUR(I,2) 
1,POWR(I,1)} 
IF (MoI 57557556 
56 IBl=LBiTj}+1 
WRITE OUTPUT TAPE ITAG,51,R(J),SOPP(I),PHI(J,1),PHI(J,2),POWP(J,2) 
1,POWP(7,1) | 
57 CONTINUE 
WRITE OUTPUT TAPE ITAO,52,C1 
WRITE OUTPUT TAPE ITAO,53,C2 
IF(POW1)500, 500,58 
58 WRITE OUTPUT TAPE TTAO,54,WATE 


500 RETURN 


SUBROUTINE CELAX 
DIMENSION 

COMMON 
EQUIVALENCE 
MAXTA=MAXTA 
IF(N7-2)1, 13,500 


1 DO 5k=1, NOG 
LBl=1 
SUM2=-0. 0 
DO 3I=21,M 
LB@=LB(I)-2 
SUM1=0. 0 
DO 2é=1B1,LB2,2 
2 SUM1-SUM14R(J)*PHL! TK )44. O*R( +1 )*PHI(J+1,K)+R(J+2)*PHI(J+2,K) 
AC3(I,K}<SUM1“DELR(I ) 
SUM2=SUM24AC3(1,K) 
3 LBleLB(T) 
DO kI=1,M 
h AC3(I,KeAC3(T,K)/SUM2 
5 CONTINUE 





CHAIN LINK (2,82) ~ Continued. 


C 
C 
C 


Oa a 


Cact2 C2 


eRe Es) 


* 


FLUX=-VOLUME WEIGHTED PROPERTIES 


TRANSA(MAXTA, 1,2 )=0.0 
DO 6Ke1,N0G 
VUSIGA(MAXZA , K\=0.0 
VUA(MAXIA, K}=20.0 
STGAA(MAXTIA,K}=0.0 
6 DIFA(MAXYA,K)=0.0 
DO 10I=1,M 
TRANSA(MAXTA, 1,2 )=TRANSA(MAXTA, 1,2}+AC3(I, 1)*TRANS(I,1,2) 
DOD 9K=1,N0G 
SUM1=0. 0 
IF( VT, K) 8,857 
7 SUMl=VUSZG(T,K}/VoUI,K) 
8 VUSICA(MAXIA, KS=VOSIGA(MAXTA, K)+A03( 1,K)*VUSIG(I,K) 
VUA(MAXTA , K J=VUA(MAXTA, K)4AC3(1)K \=SUML 
SIGAA(MAXA, K)=SIGAA(MAXTA, K VAAC3C I,K)*(SIGA(I,K)+SIGPT(I)*T(K)) 
9 DIFA(MAXTA, K \=DIFA(MAXTA, Kea aT, K) /DIF(I, K) 
DIFA(MAXTA,K}=1. 0/DIFA(MAXIA, K) 


10 CONTINCE 


CELL ONLY 


11 CALL CELL 


TF(PW1)14,14, 12 


12 IF(MAXTA=MAXI¢500, 14, 14 


AXTAL ONLY 


13 CALL AXTAL 


SOURCE GUESS POR NEXT <TERATLON 


Fe Z50+O6*NT 
DO 15i=1,N 
Jit] 


15 A( J =SOuE(T) 


Teslh5 144406"N7 
DO 16T=-1,.M 
Gente 1 


16 A( J}=SOPF(T) 


500 RETURN 


END 


LIST 
FORTRAN 

LAGEL 
SUBROUTINE CELL 
DIMENSION 
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CHAIN LINK (2,52) © Continued. 


COMMON 
EQUIVALENCE 
MRINeMRIN 
MAXTA=MAXTA 
IF(POW1)1,1, 3 


ZERO FOWER CALCULATCON CELL 


C202 AQ 


1 DO 2c=2,MAXT 
TRANSA( J, 1,2 )=TRANSA(2, 1,2) 
DO 2K=1,N0G 
VUSIGA(J,K)=VUSIGA(2,K) 
VUAC ST, K)=VUA(2,K) 
SIGAA(3,K)eSIGAA(2, K) 
DIFA(T,KjeDIFA(2, KA 
DO 2I=1,MRI 

2 DIFCH(1T, 5, K)=DrFCH(1,2,K} 
FO TO 500 


POLYNOMTAT, FIT FOR HEAT GENERATION RATE ACROSS THE FUEL TUBE 


20. 


3 LBleLBl2) 

LB2=LB(3) 

DO 5I#1,5 

SUM1=0.0 

SUM2=0. 0 

g=0 

DO 4kKeLB1, LB2 

JaSHL 

SUM1=SUM14PHI(K, 1)*U( 1,7) 
 SUM2:SUM2-+PHI(K, 2}#( Dye ) 
5 AMAT(T, 6 $2SUML¥VUSZG( 3, L}/VEC 3, L}+SUM2*VUSIG!3,2)/VU(3,2) 


DO 8f=1,5 
AMAT( £,6 )sAMAT(T,6})/AMAT(T,I) 
Kel 


6 TF(K~i)7,8, 8 
7 AMAT(1,6, ‘ eAMATC T > 6 )=AMAT( 1, K)*AMAT(K,6)/AMAT(I, I) 
KeK+1 
GO TO 6 
8 CONTINUE 
DO 11T=1,5 
Je6-T 
Keb 
BMAT(MRIN,MAXTA, J)=AMAT(, 6) 
9 IF(K-6)10, ily, ae 
10 BMAT(MRIN,MAXTA, J }=BMAT(MRIN, MAXIA , J )-AMAT(.J,K)*BMAT(MRIN, MAXTA,K) 
KekK+1 
GO TO 9 
11 CONTINUE 
DO 12T=1,4 
12 TERM(MRIN,MAXTA,I}=0.0 





CHAIN LINK (2,B2) = Continued. 


LB@=17LB(3)-LB(2) 
DO 13K=1,5 
SUM3=K-+1 
rage hee fd ey )/SUM3 
SUM2=BMAT( MRIN,MAXTA,K)*U(K+2, 1)/SUM3 
TERM(MRIN,MAXIA,1 Pt lm a 
TERM( MRIN,MAXTA, 2 )=-TERM(MRIN,MAXIA, 2 )+SUM2 
TERM({ MRIN, MAXTA, 3)=TERM(MRIN, MAXIA, 3)+SUM1/SUM3 

13 TERM(MRIN,MAXTA, 4 )=TERM(MRIN, MAXTA, + )4+SUM2/SUM3 
SUM1=PIM*(TERM(MRIN, MAXTA, 1)-TERM(MRIN, MAXTA, 2) ) 
DO 14K=1,4 

14 TERM(MRIN, MAXTA, K}=TERM(MRIN, MAXTA,K)/SUM1 
DO 15K=1,5 

15 BMAT(MRIN, MAXTA,K \=BMAT( MRIN, MAXTA, K)/SUM1 
TF(ITA3)16, 16,500 

16 IF(ITER-1)17,17,500 


FIRST ITERATION - CELL WiTH POWER 


2 


17 DO 20I=1,MRI 
DO 18k=1, 4 

18 TERM(I,MAXTIA,K)=TERM(1,MAXTA,K) 
DO 19K=1,5 

19 BMAT(I,MAXTA,K)=BMAT(1,MAXTA, 53 
DO 20J=1,N0 

20 DIFCH(I,MAXTA, J)sDIFCH(1,MAXIA,J) 

C 
500 RETURN 


KK *K 
a 
: 


LABEL 

SUBROUTINE AXTAL 
DIMENSION 

COMMON 
EQUIVALENCE 


MAXTAI=MAXIAL 
TCENT==( 14MAXYAT, ) /2 
Mev 
MRIN=MRIN 
MAXTesMAXT 
IF(ITER-1)1,1,5 

1 IF(ITA3)2,2,5 


INITIAL SET UP 


2Qaa 


2 H=RIW?T(MAXIAL,2) 
BUCKER( 1, 1s=( 3. 14159265 /H Sse 
DO 3J=1,N 
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CHAIN LINK (2,52 } = Continued. 


3 APOIP(1,J\=0.0 
DO 4T=1,M 

4 APOWR(1,2}=0.0 
HeRINT(MAXI,2)-RINT(1,2) 


STORAGE FOR RADYAL CALCULATION AND GROUP 2 BUCKLING 


GaGa C2 


5 Cl=SQRTF{ DIF(1,2)*SiGA(1,2)) 
C2=SQRTF(DIF(M,2)*SZGA(M,2)) 
C3eDIF(ICENT,2)*((1.0/C1)+{1.0/C2)) 
BUCKOR( MRIN, 2 }==( 3. 14159265 /(H403) #2 
TRANSR(MRIN, 1,2 )=TRANS(ICENT, 1,2) 
DO 6k=1,N0G 
VUSIGR(MRIN, K}=VUSIG( iCENT, K) 
VOR(MRIN, K)<Vo(ICENT,K) 
SIGAR(MRIN,K i=StGA( ICENT,K) 

6 DIFR(MRIN, KYaDIF (CENT, KS 


NORMALIZATION, POWER, AND FLUX*DIFFUSION 


C2 22 


DO 1lOK=1,N0G 
SUM2=0. 0 
DO 8I=2,MAXTI 
SUMi=0. 0 
LBl=ILB(I-1) 
LB2=LB( I }=2 
DO 7J=1B1,LB2,2 
7 SUMl=SUM1+4PHT (2, K}44. OXPHI(0+1,K)*PHI(J+2,K) 
SUMl=SUML“DECR(T} 
AC3(I,K)=SUML 
8 SUM2=SUM2+SUML 
DO 91=2,MAXT 
9 AC3(1,K}=AC3(T,K} /SUM2 
10 soul K\2SUM2 
sou(2)=sou(2)/sout1) 
SOU(1)=1.0 
SUM1=0. 0 
DO 12T=2,MAXI 
POVER(MRIN, I }=0.0 
DO 11K=1,NOG 
POWER(MRIN, T =P OWER(MRIN, I)+AC3(I,K)*VU(I,K)*SOU(K) 
Ll DIFCH(MRIN,T,K}=AC3(1,K)*DIF(I,K) 
12 SUM1=SUM1+POVER(METN, T) 
SUM2=SUM1/3.0 
LBl<=1 
DO 143e1,MAXTAT 
LH2s1B(T) 
SUM3=VU( I, 1)/sume 
SUMu=VU(T, 2) /suMe 
PWWER(MRIN, T =POWER(MRIN, I) /SUM1 
DO 133<LB1, LBe 
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CHAIN LINK (2,B2) = Continued. 


C 


* OK 


13 APOWP({MRIN, J )=PHI(J, 1)*SUM3+PHI(J,2)*sUM4 
APOWR(MRIN, T }=APOWP(MRIN, BO) 

14 LBlsLBe 
TF(ITER=1)15,15,500 

15 IF(NPO(2))16, 16,500 

16 IF(MRI=2)500, 17,17 


FIRST TTERATION 


17 DO 18I=2,MRI 
TRANSR(I, 1,2)=TRANSR(1,1,2) 
DO 18K=1,N0G 
VUSIGR( I,K )=VUSIGR(1,K) 
VUR(I,K)=¥UR(1,K) 
SIGAR(I,K}=SIGAR(1,K) 
DIFR(1,K)=DIFR{1,K) 
BUCK2R(T,K}=BUCK2R(1,K) 
DO 18J=2,MAXT 

18 DIFCH(I,J,K)=DIFCH(1,J,K) 
DO 21I=2,MRI 
DO 19S=1,N 

19 APOVWP(I,J}=APOWP(1,7) 
DO 20J=1,M 

20 APOWR(I,7 ‘=APOWR(1,J) 

21 CONTINUE 
DO 225=2,MAXT 
DO 22T=2,MRT 

22 POWER(I,J j=POVWER(1, 0) 


500 RETURN 
END 


LIST 

FORTRAN 

LABEL 

SUBROUTINE ANPRAX 

DIMENSION 

COMMON 

EQUIVALENCE 
1 FORMAT (16H)  #$RADIAL ZONEI2) 
2 FORMAT (16H3 RADIAL ZONEI2) 


3 FORMAT (60H FRACTION OF REACTOR POWER GENERATED IN THIS Z 
LONE =:F7.4/50H AVERAGE FUEL ROD POWER GENERATION RATE =1PE 
211.4,7H BTU/HR///69H NORMALIZED COEFFICIENTS OF FOURTH 
30RDER POLYNOMIAL FIT OF/62H RADIAL HEAT GENERATI 


LON ACROSS THE FUEL TUBE/70H EXPONENT 0 i} 
5, 2 3 4 /10H AXTAL/9OH ZONE ) 
4h FORMAT (1H I7,12PE15.4,4513.4) 


5 FORMAT (63H+ AXTAL THERMODYNAMIC/HEAT TRANSFER 


1 RESULTS/73H AXTAL INLST 
2 OUTLET /72H ZONE SIDE 
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CHAIN LINK (2,32) = Continued. 


Sarcy C2 


Ca" Gas G2 


3 STDE) 
6 FORMAT (2H> 1PE19.4, 30H FLOY RATE (LB/HR)E24.4) 
7 FORMAT (2HO I6,F11.1,31H PRESSURE (PSIA)F23.1) 
8 FORMAT (1H F18.1, 32H ENTHALPY (BTU/LB)F22.1) 
Q FORMAT (18 F18.1,37H COOLANT TEMPERATURE (DEG F)F17.1) 
10 FORMAT (1H 1PE20.4, 348 HEAT TRANSFER COEFFICIENTE2O. 4/544 
v (pTU/HR/FTete/(DEG F))) 
LL FORMAT (1H 1PE20.4, 34H CRITICAL HEAT FLUX RATIDE20. 1+) 
12 FORMAT (1H F18.1, 38H CLADDING TEMPERATURE (DEG F)F16.1) 
13 FORMAT (1H 1PR20.4, 34H HEAT FLUX (BIU/HR/FT**2 )E20. 4) 
14 FORMAT (53H MAXIMUM MID-ZONE FUEL TEMPERATURE. =F3 
1.1,6H DEG F) 
141 FORMAT (53H AVERAGE MID=-Z0NE FUEL TEMPERATURE =F8 
1.1,6H DEG F) 
15 FORMAT (42H AXTAL ZONE POWER =1PE11.4, 7H BT 
10/ ER | 
16 — (56H1 POINTWISE AXIAL HEAT GENERATION RAT 
18 
17 FORMAT (63H DISTANCE FROM POWER 
1 DENSITY/62H5 ENTRANCE (FT) (BT 
2U/HR/FT) ) 


18 FORMAT (18 } 

19 FORMAT (1H CPF20.5, 1PEN1. 4) 
MRINSMRIN 
MAXTATs=MAXTAT: 
TF(MRIN-1520,20, 32 


FLRST TOME THROSGE THE SUBROUTINE 


20 IZl=1 
DO 22%=1,MAXTAL 
TB2sLBAI tT} 


D) 21°11, LB2 
21 RIV T of 3.28082 RAL S} 
RI( LB2 }o-57( 132) 
22 LB1=LBe4-1 


HEAT TRANSFER CUES PL CLIENTS 


TB2s3-NPO{ 3) 

DO 27Ke1,2 

CCK }=PIM*RATR( K) 

D® 26T=1,MRI 

TRONP OLY S724, 23,24 
23 IF K-iB2 j2h,26,2h 
eh DS 2562,MAXT 
25 BIR(T, JK ioTCFO/(RBTR(K)*( HIR(1,3,K)-HT(K))) 
26 CONTINGE 
27 CONTINUE 

TF(NPO( 1) 30, 30,28 
28 DO 292=2,MAXT 
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CHAIN LINK (2,32) = Continued. 


Ql Q 


2g 
30 


Sul 


2 


33 


34 
3) 


FRAC(I, J )=1.0-FRAC(I,J) 


TTee)} 


TF(MAXIAT@4)31, 31, 32 


ICT=5 


PRINTOUT OF AXTAT, 


DO 33Ie2,MAXT 


RESULTS 


AC3(T,1\=(1.0-FRAC(MRIN, I) )#POVER(MRIN, I )/c(1) 
AC3(I, 2)=FRAC(MRIN, I )¥POWER(MRIN,I)/c(2) 
AC1i(I )=D2( 1) #P WER(MRIN, I) 


WRITE OUTPUT TAPE 
WRITE OUTPUT TAPE 
WRITE OUTPUT TAPE 
WRITE OUTPUT TAPE 
WRITE OUTPCT TAFE 
WRITE OUTPUT TAPE 
DO 38J=1,MAXTAT: 

IF( SECT }35, 34, 35 
WRETE OUTEUT TAPE 
WRITE OUTPUT TAPE 
WRITE OUTPUT TAPE 
WRITE OUTFUT TAFE 
WRITE OUTPUT TAPE 
WRITE OUTPUT TAPE 
IF(J=1)38, 38, 36 


TTAO, 1,MRIN 

TTAC, 3, POWER(MRIN, 1), POWER(MRIN, MAXIAL) 
TTAO, 4 ¥ (BMAT(MRIN, J,1),I=1,5),d=2,MAXTI) 
TTAO, 1,MRIN 

TIAS,5 

TTA, 6, (FLOW(MRIN,I),I=1,2) 


TTAO, 2,MRIN 

TTAO,5 

TTAO, 7,7, (PRES(MRIN, J,I),I=1,2) 
TTAO, 8, (ENTH(MRIN, J, 1, T=1,2 
TTAO, 9, (TEMC(MRIN,J,1),I=1,2 
YTAO, 11, (DNB(MRIN,J,1),I=1,2) 


36 IF(J-MAXIAT )37, 38, 38 


38 


Sis 
ho 


OUTPUT 
OUTPUT 
OUTPUT 
» COrreT 
OUTPCT 
WRITE OUTPUT 
CONTINUE 


TAPE 
TAPE 
TAPE 
TAPE 


TTAO, 10, (HTR(MRIN,J,I),I=1,2) 
TTAD, 12, (TEMW(MRIN, J,I),I=1,2) 
TTAO, 13, (AC3(J,I),I=1,2) 

TAO, 14, TEMX(MRIN,<) 

TTA, 141, TFBAR(MRIN, 5) 

TTAO, 15,AC1(J) 


Cl=F OWER({MRIN, MAXTAT, } 


DD 39I=1, NAXTAT 


APOWP(MRIN, I S=APWP(MRIN,T)#C1 


DO 40I=1,MAXTAT: 


APOWE(MRIN, T JeAPWR(MRIN, T}#C1 


WRITE OUTPUT TAFE 
WRITE OUTPUT TAPE 
WRITE OUTPUT TAPE 
LBiel 

DO 41Te1,MAXTAT, 
IB3HIBA(L)-=1 
WRITE OUTPUT TAPE 
LB1=tBA(T) 

WRITE OJTPUT TAPE 


TTA, 16 
TTAO, 1,MRIN 
TTAO, 17 


TTAO, 18 
{TAO, 19, (RI(J), APOWP(MRIN, J), J=LB1, LB3) 


TTAD, 19,RI(LB1), APOWR(MRIN, I) 
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CHAIN LINK (2,B2) = Continued. 
41 CONTINUE 


500 RETURN 
END 


29% 





APPENDIX H 


INSTRUCTIONS FOR USING THE PROGRAM 


H.1 General 

Fixed point data is read into the machine by using a dunmy one- 
dimensional matrix Referee to as the Lematrix. Fixed point data 
specifies such information as the number of space points in the 
calculations, the number of reactor subdivisions, and other options 
available to the programmer. 

Certain limitations are imposed on the fixed point input which 
are built into the program and which the programmer cannot change. The 
maximum number of regions is 7, the maximum number of space points is 
101, the number of energy groups is 2, and the number of downscattering 
groups is 1. Also, certain specifications are preset as regards the 


flux geometry and boundary conditions. These specifications are: 


Type of Boundary Conditions 
Calculation Geometry Origin Edge 

Cell Cylindrical zero Current Zero Current 
Axial Plane Zero Flux Zero Flux 
Radial Cylindrical zero Current Zero Flux 


The Lematrix is initially set equal to zero except for certain addresses. 
Where these non-zero numbers occur is noted in the section "Fixed Point 
Addresses". 

Floating point data is read into the machine by using a dummy one- 
dimensional matrix known as the A-matrix. Floating point data specifies 
such information as the geometrical dimensions, nuclear properties, and 
heat transfer and power parameters. The IBM 7090 stores information in 


column fashion such that when a two-dimensional matrix is specified by 
rae | 





Paeerndiees (1,3), the index to the left is the most ramidly varying. 
For example, if one considers a two-dimensional matrix B(I,J) and 
assumes that the point B(i,1) is located in the A=matrix at A(345), 
then the point B(2,1) is located at A(346), B(3,1) at A(347), ete. 

As pointed out, the maximum number of regions is 7 and the number 
of groups is 2. Where the indices (I,J) refer to a nuclear property, 
the first index (i) denotes the regional position and (J) the group. 
number. For the B=matrix considered above, the address for the point 
B(1,2) falls at A(352) and B(7,Z2) at A(3S52*. I the number of 
Meerens to be used is less thar 7, the eddress Zor the point BU1,2) 
must always fall at address A(352), regardless of how many regions 
are specified. The difference between Grouv 1 and Group 2 addresses 
is always equal to 7, regardless of how many regions are used. 

To point out how this information is used, consider the diffusion 
coefficient for cell properties, which is denoted by the symbol Dua) 
in the section "Floating Point Addresses’, In this section the address 
femeD (1,1) is A(508). 


Tne addresses for eazth of the cell diffusion 


properties is shown below. 


The A=matrix is 


addresses. 


Where these non<zero numbers occur is noted in the section 


"Floating Point Addresses". 


Z 


Q 


6 


Dat) == A(50e) pe 2) = Sas 
(Zery = * (509) (252) (516) 
(3,1) = (510) (72) (517) 
ee = A511) (4,2) (518) 
eal) ioe) (552) Case, 
Koy) = 513) (Guzp (520) 
(7,1) = (514) (7) eer) 


Lnitially set equal to zero except for certain 





H.2 Data Input 
There are five card types necessary to solve a problem, For problems 
other than the first on the same run, only one each of the cards indicated 
below is necessary. The data from one problem is stored and not changed 
within the machine, except as noted for L(55) and L(121). This greatly 
reduces the input time for data and cuts down on the number of cards that 
must be punched. These cards must appear in the order indicated below. 
1.6 Program Control Card and Steam Table Data. 
ao First Problem in a Run. The first card following the "* DATA" 
card must contain a non-zero digit punched in Column 2 and 
a decimal point in column 3. This causes the program to 
enter a subroutine which sets up the computer and reads in 
529 cards containing the steam properties necessary for prob- 
lem solution. The card, which follows the steam table data, 
contains the maximum allowable DNB-ratio and the nozzle effi- 
ciency. The steam table data cards should not be changed un- 
less the person making the change has thoroughly studied 
subroutine THERMO in the program. To specify the DNB-ratio 
or nozzle efficiency, the information is placed in the com- 


puter in the following manner: 


DNB=Ratio Nozzle Efficiency 
Column . Column 
1 Blank 13 Blank 
Z 0 14 O 
3 Decimal Point 15 Decimal Point 
; Any Digits : thy Digille 
iz 24 
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db. Problems in a Run other than the First. Unless it is 

desired to change either the DNBeratio or nozzle efficiency, 
this card is blank. If changes in either of these quantities 
is to be made, the procedure for the first problem in a run 
must be followed and the complete steam table data must be 
read in again. 

ee Alphanumeric Data. 
Punch the digit 1 in column 1. In the remaining 79 columns 
on the card, punch any desired alphanumeric information. 
The information punched on this card will head the print- 
out of the data that is supplied to the program. 

3. Fixed Point (L-Matrix) Data. 
The punches on this card must follow the format given below. 
If this form is not followed, an error signal will be printed 


and the problem will be terminated. 


Column Information 
al Number of pieces of Lematrix data on the card 
2 Left blank unless it is the last card of fixed 


point data, in which case the number 1 is punched 
in this column 

3<12 Relative address of the first piece of data on 
the card. All data following the first piece of 
data must be stored consecutively. For instance, 
if L(152) is the first piece of data, then the 
digit 1 is punched in column 10, the digit 5 in 
column 11, and the digit 2 in column 12. The last 
digit of the address must appear in column l2. 
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Column Information 

13-24) Fixed point Lematrix data with between 1 and 5 

lia’ pieces of data on the dard, according to the 

37-48 ) contents of column ji on the card, with the address 

“en of the contents of columns 13-24 determined by 

ina column 3-12. As was the case for columns 3-12, 
the last digit for each of the numbers punched 
in the different fields must lie in the last 
column of the field. 

by, Floating Point (A-Matrix) Data. 


The punches on this card must follow the format given below. 


If this form is not followed, an error signal will be printed 


and the problem will be terminated. 


Column 
1 
2 


3212 


13-24) 
25~36) 
57-48) 
19-60) 
wHe25 


Information 
Number of pieces of A=-matrix data on the card. 
Left blank unless it is the last card of float- 
ing point data, in which case the number 1 is 
punched in this column 
Relative address of the first piece of data on 
the card. The same restrictions apply for the 
columns as were pertinent to column 3-12 for 
Lematrix data 
Floating point A-matrix data with between 1 and 


5 pieces of data on the card, according to the 


contents of column 1, with the address of columns 
13=24 determined by the contents of columns 3-12. 


an example of how floating point data is fed into 


As 


the machine, assume that the number 0.0034567 is to 
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read into columns 13-24. In the usual 
representation, this can also be written as 
3.4567 x 1073 = 0.34567 x 107°. In the E-type 


format used, the number would be punched on the 


card as follows: 


Column Digit Column Digit 
13 Blank 19 6 
14 0 20 i 
ils: ; 21 E 
16 3 22 = 
17 h 23 0 
18 5 a. 2 
De Alphanumeric Data. 


Punch the digit 1 in column l. In the remaining 79 columns 
on the card, punch any desired alphanumeric information. 
The information punched on this card will head the print- 


out of the problem solution. This card can be a duplicate 


of card type 2. 





XXX Quantity 
47 Number of cell regions; must be set equal to 7 
18 Interface numbers of cell boundaries: must be old and in ascend- 


ing order; maximum number of points in region 3 is 213; miniumun 
number of points/region (in any region) = 7; number of interface 
numbers indicated must equal 7 to agree with L(47); last interface 
number cannot exceed 101, the maximum number of space points 


allowed. 
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DE, 


56 


65 


80 
81 


98 


3 


114 


Quantity 


Number of control regions for homogeneous poison search if search 
is made on cell calculations; if L(55) = 0, program interprets 
poison as being in all cell regions and sets L(55) = L(47) and 
puts poison section of region 1 into all cell positions. 

Control region numbers for cell search; if L(55) is non-zero, 
number of control regions must agree with L(55); control region 
numbers must be in seeae order; number of highest control 
region cannot exceed 1(47)} 

Convergence testing method for solution of flux difference 
equations in cell calculations; if L(65) = 1, test is made on the 
integrated value of k.pp between two successive iterations; if 
L(65) = 2, test is made on the variation of the pointwise source 
terms between two successive iterations; 1(65) = 2 is the more 
stringent testing method; program sets L(65) = 1 initially 

Number of axial regions; minimum number is 3; maximum number is 7 
Interface numbers of axial boundaries; odd and in ascending 
order; minimum number of points/region = 7; number of interfaces 
must agree with L(80); last interface number cannot be greater than 
1LO1 

Convergence testing method for flux iterations for axial 
calculations; see L{65) 

Number of radial regions; minimum number is 2, maximum number 

is 7 

Interface numbers of radial boundaries; odd and in ascending order; 
minimum number of points/region = 7; number of interfaces must 


agree with L(113); last interface number cannot be greater than 101 
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sbeg 


122 


129 


130 


lisa 


Se 


3 


134 


De 


153 


Quantity 


Number of control regions for homogeneous search if search is 
made in radial regions; same restrictions as for L(55) except 
they are applied to L(113) 

Control region numbers for radial search; same restrictions 

as for L(56) except as they apply to L(113) and L(121) 

Maximum number of iterations allowed for flux convergence; 
program sets this number to 50 initially 

Maximum number of iterations allowed for criticality con- 
vergence; program sets this number to 15 initially 

Convergence testing method for flux iterations for radial 
calculations; see L(65) 

Criticality master search control number; if L(132) = 1, search 
is made on cell calculations; if L(132) = 3, search is made on 
radial calculations; Li132) must be specified for the problem. 
Maximum number of iterations allowed for thermodynamic/heat 
transfer calculations; program sets this to 25 initially 
Intermediate printout control; if L(134} = 0, no printout of 
intermediate results as the calculation proceeds; L(134) = 1 
gives intermediate printout of results; program sets L(134) = ] 
initially 

Inlet flow side designation; if L(152) = 0, flow enters inside 
the fuel tube; if L(152) = 1, flow enters outside the fuel tube; 
program sets L (152) = O initially 

Blocked flow control number; if L(153) = 1, a coolant channel is 
blocked for flow; if 1(153) = 0, this option is not used; program 
sets L(153) = O initially 
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XXX Quantity 

154 Flow path which is blocked; if L(154) = 1, inlet flow is blocked; 
if L(154) = 2, outlet flow is blocked; if flow is blocked; L(153) 
must be non-zero, program sets L(154) = O initially 

155 Radial region in which flow is blocked; L(155) must be less than 
L(113); if flow is blocked, L(153) and L(154) must also be non- 
zero; program sets L(155) = 0 initially 

162 Maximum number of radial power sweeps; for a zero-power 
calculation, this number should be about 10; for a calculation 
with power, the program will be in group 8 when 5 minutes of 
computer time has elapsed; convergence appears to be relatively 
fast to the final steady state power distribution but it is not 
achieved within 5 minutes; to obtain more results than those 
given by setting 1.(134} = 1, set L{(162) = 5 or 6 to get an answer 
printout, which will also include a signal to indicate that final 
convergence has not yet been achieved; program initially sets 


L(162) = 5 


H.4 Floating Point Addresses A(XXX) for Card T: 





XXXX Quantity 

hs (I,J) - fission spectrum; program sets fission spectrum equal 
to 1.0 for energy group 1 and 0.0 for energy group 2 for all / 
values of I; if this preset condition does not satisfy the 
programmer's requirements, change the values such that there is 
no regional variation for either energy group. 

Nuclear Macroscopic Cell Properties (Superscript c) 

459g 226 Cid) in em71; region 3 contains the fuel so addresses 


A(461) and A(468) must be non-zero 
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2s 


473 


LOT 


Lok 


508 


pee 


929 


Quantity 

of (Ty): region 3 contains the fuel so addresses A(475) 

and A(482) must be non-zero 

its (I) in Gen: downscattering cross section for each region 
from group 1 to group 2; no information is necessary for regions 
l or 5 since these are coolant regions and properties are 
generated from nuclear microscopic coolant input 

ee (ESO) in om7!; absorption cross section which does not include 
removal by downscattering for group 1; see A(487) 

D° (I,J) in ems see A(487) 

Ze (Erin eae thermal poison cross section (group 2) for 

each of the regions 

ri (J)s ratio of poison cross section in group J to poison cross 


section in group 2; independent of region 


Nuclear Macroscopic Radial Reactor Properties (Superscript r) 


The properties of the radial reflector must be specified. Dimensions 


used correspond to those used for corresponding cell properties. If, for 


example, the number in L (113) is 6, corresponding to 5 radial core sub- 


divisions, plus a radial reflector, the addresses for the radial reflector 


absorption cross section are A (1311) for group 1 and A (1318) for group 


2. Group 2 addresses always are 7 greater than group 1 addresses for the 


same property, regardless of how many radial regions are specified in L (113). 


1299 
1306 
1320 
1334 
1341 
1343 


gL) 


a (isd) 


D(a) 
=r 
BE (2) 
P 
Keeps program sets this number to 1.0 initially 
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Nuclear Microscopie Water Properties (Superscript w) 

Cross sections for all coolant properties are specified in nai /mole- 
cule. The program then internally generates macroscopic preperties for the 
inlet and mixing plenums plus cell regions 1 and 5. Index J denotes group 


number, of which there are two. 


1719 : downscattering cross section from group 1 to group 2 
1720 MODE absorption cross section 
1721 a): transport cross section 


Convergence Testing and Extrapolation 

Satisfying convergence criteria for criticality and power distribution 
calculations is basically dependent on the result of flux calculations. To 
make physical sense, the convergence limit for flux calculations should be 
smaller than for either criticality or power distribution. Inasmuch as the 
same convergence criterion is used for heat transfer and power calculations 
and that the values of viscosity, thermal conductivity and surface tension 
of water are calculated internally from the results of a polynomial fitting 
of their respective properties, a convergence limit of less than 0.01 for 
the power distribution increases the running time for the program without 


any resulting increase in aceuracy. 


17.24 Convergence limit for flux calculations 

1725 Convergence limit for criticality calculations 

1726 Convergence limit for power/heat transfer calculations 

"727 Extrapolation factor for flux calculations; program sets this 


value to 0.8 initially, a value which seems te work quite 
satisfactorily 

Geometrical Inputs (All dimensions are in cm) 

1740 Distance from the origin of cylindrical interfaces for cell calcu- 


lations; seven increasing valves must be specified 
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1747 Distance from the bottom of the inlet plenum of interfaces which 
subdivide the reactor into axial regions; distances must be 
specified in increasing value and the number of values given must 
agree with the contents of L (80); the last value given is the 
reactor height 

754 Distance from the origin of cylindrical interfaces which sub- 
divide the reactor into radial regions; distances must be 
specified in increasing value and the number of values given 
must agree with the contents of L (113); the last value given 
is the reactor radius 

Power/Thermodynamic/Heat Transfer Inputs (Units of Btu,hr,ft, 1b, °F) 

If a zero-power calculation is to be done, only the contents of 
A(1736) and A(1737) have to be specified. For a zero power calculation 
that is to be used to estimate the maximum obtainable value of kp, for 
a@ given reactor size and composition, the calculation is greatly speeded 
by setting L(130) = 0, L(132) = 3, L(134) = 1, and A(1334) to some small 
positive value greater than 10°38, 

1728 Reactor power 

1729 Total flow through the second pass channels in the core 

1730 Nozzle/orifice area contraction ratio at second pass entrance; 
ratio = throat area/second pass channel flux area; value must 
lie between O and 1.0. 

1731 Thermal conductivity of inner cladding (cell region 2) 

1732 Thermal conductivity of fuel material (cell region 3) 

. 1733 Thermal conductivity of outer cladding (cell region h) 

1734 Interface heat transfer coefficient between fuel and cladding 

735 Maximum allowable fuel temperature 
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1736 Pressure in the inlet plenum (psia) 

737 Enthalpy of water in the inlet plenum 

3s Density of core, excluding coolant flow area 

1739 Density of radial reflector 

1765 Nozzle/orifice area contraction ratio at first pass entrance; 
ratio = throat area/first pass channel flow area; the value must 
lie between O and 1.0 

H.5 Steam Table Data 

The subroutine THERMO utilizes a set of punched cards which summarize 
the data in the steam tables. This group of cards is logically broken up 
into two sets, the first containing data for the saturated state, the 
second the superheated state, which are read into the computer in that 
order. 

The one hundred and twenty=three cards that summarize the saturated 
state span the range from i100°F to the critical temperature. The first 
122 cards are spaced at 5° temperature intervals, i.e., the first card is 
for a saturation temperature of iCO°F, the second for 105°F, and card 
number 122 for 7065°F. The last card is for 705.4°F, The eight pieces of 


data that appear on each card are: 


Columns Data 
1240 Temperature (°F) 
44 = 20 Pressure (psia) 
21 = 30 Specific volume of saturated liquid (ft?/1b) 
31 = 40 Specific volume cof saturated vapor (ft?/1b) 
44 =» 50 Enthalpy of saturated liquid (Btu/1lb) 
54 = 60 Enthalpy of saturated vapor (Btu/1b) 
61 = 70 Entropy of saturated liquid (Btu/1b/°F) 
71 ="66 Entropy of saturated vapor (Btu/1b/°F) 


307 





The placement of the saturated data within each of the 10-column 
fields is arbitrary. The only requirement is that the decimal point be 
punched in each of the fields at its appropriate position in the data 
number, It is suggested that the first column of each of the fields 
be left blank. 

For the superheated data, the 14 temperature points selected are 
arbitrary but must be arranged in order of increasing value. The 
program specifically uses the fact that the 29 pressure points start with 
a value of 100 psia and increase by 50 psi increments, ending with a 
top pressure of 1500 psia. There are thus a total of (14 x 29 =) 406 
cards for the superheated state. The information given on each of the 


cards is arranged as follows: 


Columns Data 
1 = 10 Temperature (°F) 

11 = 20 Pressure (psia) 

C= oo Specific volume (ft?/1b) 
1 = Enthalpy (Btu/1b) 


Note that the program does rot use entropy values for the superheated 
State. The same comments made concerning saturated data placement 
Within each of the 10-column fields is applicable to the superheated 
data. 

The arrangement of the superheated data cards is accomplished by 
dividing the cards into 14 groups (based upon temperature) and for each 
temperature value arranging each of the sub-groups in increasing order 
of pressure values from i100 to 1500 psia. Thus, assuming it was desired 
to span the temperature range from 500°F to 2000°F, the cards would be 


arranged as follows: 
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ouperheat Card No. Temperature (°F Pressure sia 


1 500.0 100.0 
2 500.0 15020 
406 2000.0 4500.0 


In this example, the saturation pressure for 500°F is 680.8 psia. For 
cards one through twelve, specific volume and enthalpy values would be 
obtained from the superheated steam tables. Card number 13 corresponds 
to a pressure of 700 psia, which is greater than the saturation pressure 
at 500°F, so superheated data is not applicable. For this case, cards 
13 through 29 would only have temperature and pressure values punched 


in columns 1 = 20 and the remainder of the card would be blank. 
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